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**F [LE #1 D* #UAF PARSE ve 
iC 
UU UU AAAAAA FFFFFFFFFF PPPPPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE ; 
UU UU AAAAAA FFFFFFFFFF PPPFPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE : 
UU UU AA AA FF Pp PP AA AA RR RR SS EE : 
UU UU AA AA FF PP PP AA AA R RR SS EE ; 
UU UU AA AA FF PP PP AA AA RR RR SS EE ; 
UU UU AA AA FF PP PP AA AA RR RR SS EE : 
UU UU A AA FFFFFFFF PPPPPPPP AA AA RRRRRRRR SSSSSS EEEEEEEE ; 
UU UU AA A FFFFFFFF PPPPPPPP AA AA RRRRRRRR S$SSSSS EEEEEEEE . 
UU UU AAAAAA FF PP AAAAAAAAAA RR RR oS EE : 
UU UU AAAAAAAAAA FF PP AAAAAAAAAA RR RR SS EE 30 
UU UU AA FF PP AA AA RR RR SS EE ee : 
UU UU AA AA FF PP AA AA RR RR SS EE re ; 
UUUUUUUUUU AA AA FF PP AA ‘Am RR RR SSSSSSSS EEEEEEEEEE i : 
UUUUUUUUUU AA AA FF PP AA AA RR RR SSSSSSSS EEEEEEEEEE ome ; 
LL III SSSSSSSS 3 
LL IIIIII SSSSSSSS 3 
LL Il ss 3 
LL 1] ss :0 
LL I] SS 3 
LL I] ss ; 
LL II SSSSSS 3 
LL II SSSSSS ; 
LL I] ss : 
LL I] $s : 
LL II S$ : 
LL I] $$ é 
LLELLLLLELL IIII11 SSSSSSSS 3 
LLLLLLLLLL III SSSSSSSS ‘9 
30 
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-0ct-1984 13: 
module uafparse ( t (bliss32), 

anguage | 188 

ALT ae en Pe ht 


begi piereca ten ne «4 he SE general, nonexternal=general)) = 
egin 
1 


BOSSES ASALALILIT ISS ITT S TTT TT TTT Prec TTT T ICICI CTT TTT Tirititiririiririiiry) 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!# ALL RIGHTS RESERVED. 


* 
® 
w 
' * 
:* THIS SOFTWARE 5S FURNISHED a A LICENSE AND MAY BE USED AND og * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. * 
: * 
1* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:* CORPORATION. * 

* 

© 

& 

* 

* 

® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIFMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PRORRERRRAE AAA AAAAAAAAERAAA AA AERET AAT A HERAT HAAR HAR RAR AARTAA eRe eee eee ee 


Supply missing spechous (if necessary) on /DIRECTORY. 


lee 

} FACILITY: System Management Utility Program 

; ABSTRACT: Parsing subroutines for the AUTHORIZE utility 

! ENVIRONMENT : 

AUTHOR: Henry M. Levy , CREATION DATE: 1-June-1977 

; MODIFIED BY: 

i v04-001 JRLO038 John R, Lawson, Jr. 10-Oct-1984 09:04 
} Packet MHBO151 from FT2 has somehow disappeared, replace: 
v03-016 4HBO151 Mark Branhal | 26-Apr-1984 
: : Fix external asdrees tng. oe 

: : change TPARSE tables PSECT yore to STPA_xxx. 

: ; isreconnect flag. 

; : Add security auditing for SYSUAF/NETUAF changes. 
; This packet was in FT2, but nothing later. 

i v03-022 JRLOO35 n R. Lawson, Jr. 07-Aug-1984 15:49 
Fix PWD_EXPIRED ek tlag to be set with passwords. 
v03-021 JRLOO22 hn R. Lawson, Jr. 09-Jul-1984 13:40 
i 
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UAF PARSE 
| 04-003 b-s2 -Jan-1985 1 AX- 
=0ct-1984 15: at: 10 JAF BUGSRe UAF PARSE, 63351 


; 47 05 ° 
, i 8 } ! spat had itera WORD. YONSIGNED LENGTH (217) for unsigned *° 
: ' 7 ; 
; 38 38 | | re paoorn qualities i gundease Sadie stanamedae sige 
: 3 se } | = mlereren peak Stier oe allaw wieseeatiae Gesaueraae 
33 0070 | Add /PWOLIFETIME= SRONE Guat ities. eatperephcett tt ; 
| i 0078 | = Change ait messages, 0 calls to yTaSSIGNAL, yo thet ies oe ¢ 
: 0075 1} . : 
8 Ba Wr EL tidearyearton Se gRiatiee js specitfed then | 
; 0079 1 | * : 
70 0081 ) | ae elie for the Fignte dete base heatitome fo ssp 7; 
f 0084 7 oon ne ty flag to UAF; "ie eae’ te shor ine susenaars, : 
: ' - . 
r 38 ) ! a had, command, in ut"to'handle new GAP features: a : 
; 0091 i v03-011 ~ iy Fy C. Goldstein, 66-Jan-1984 14:18 ig 
: 0093 1! - ° 
; Bs 0095 | ea had, 4 (QUOTA (job-wide” logical name sable crasdien quoted : 
; 87 0098 | antag Add minimal supesrt ter 4 eR ules. spaetiitiont apioen, ; 
8 3 Paint: Side ob deen Cee ee 0 
: 3 0104 ~  Mawatiente  “o"™ 
: 36 i | =~ eet er 
7 i gi 7 ae: comp a in sapuian Wit nan vsicpaecsktany 3 
Py ' : 
196 o118 = the gg PY seseaue a 4 aT  - GE TPASSWORD 


kk a a a tt 
Fwn-O0on 
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Q 
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0 
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Bosenctggs 17:40:13 


JWT0030 Jim Teague 03-May-1982 
Accomodate ufd directory specs 

JWT9029 Jim Teague 20-Apr-1982 
Completely disable /maxacctjobs 

JWT0023 Jim Teague 17-Mar-1982 


Enforce default directory syntax more strictly by 
cranking the spec through tparse. 


t= ] 


oO 


Oo 


°o 


oO 


ee 
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v04-001 F23er 198, 15389518 UAF -BUGSREIUAF PARSE 64551 « (2) 

s 3 1! : 
3 19 $ 1 ! Require files: $ 
; #118 Ba. $ 
; #6119 9 1 require 3 
3 1s9 0 ! *Lib$:uafreq'; : 
. % ¢ ° 1 ! TABLE OF CONTENTS: 3 
Te BR. : 
: 124 9 1 $ 
; ; ? 9 ! forward routine ‘6 
s ter ¢ 1 update_record, ! modify all specified fields : 
; 128 : 1 getaccess, ! get access flag bits : 
; \¢ $4 «1 check_primary, ! verify ‘‘primary"’ keyword ; 
: 130 35 1 check_secondary, ! verify ppacondery | eyword s 
; (131 z8 1 set_range, ! set hourly restriction bits 3 
s tee , 7 getcputim, ! get cpu time quota $ 
, YS3 38 1 getdevice, ! get default device name ; 
s 1% 39 1 getdirectory, ! get default directory 3 
; 6S9 9 } checkvalue, ! check UFD group and member value ; 
: (136 : checklength, ! check directory name Length 0 
3; (lor ; 1 getflags, ! get flag bits : 
s 138 43 1 getpflags, ! get old per day login flags : 
; «139 44 1 getrestrict, ' get old hourly restriction values : 
; 140 45 1 getprimedays, ! get primary day list 3 
s 161 46 1 getpriv, ' get process privileges : 
3 10g 47 1 getuic, ! get user identification code $ 
; (14 48 1 parse_uic, : Obtain UIC group and member : 
3; 144 0249 1 parse_wild, ! parse wildcarded user specification : 
: «145 0250 1 parse_wild_uic, ! parse wildcarded UIC ; 
: 146 0251 1 getstring, ' get string from input 30 
; 14 o5e8 1 getval, ! get numeric value from user 3 
3: «(148 0253 1 cvtnum, ! convert decimal ascii to binary : 
: «(149 0255 1 UAF SGENERATE, ! generate necessary peseuerds 3 
: 150 0255 1 GE TPASSWORD ! update password fields 3 
: 151 0256 1 AUTHORIZE _GENERATE; i Interface to PL/I ; 
; 138 0257 1 . 3 
s 33 0258 1 3 
: «154 0259 1 external routine : 
3 935 0260 1 : 
3 6136 ps6} 1 GENERATE _PASSWORDS, ;0 
: 157 $06 1 SYSSASSIGN, s 
3s 138 0263 1 SYSSDASSGN, : 
: 159 0264 1 SYS$Q10U, 3 
:; 160 65 1 LIBSGET_VM, : 
:_ 161 6¢ 1 STRSUPCASE, : 
3001 !JRLO038 67 1 Lib$tparse, : 
3002 !JRL0038 68 1 LibSlookup_key, : 
; 165-3 8 i 1 cli$dcl_parse, 3 
; 166 0 1 cli$present, : 
: 16 8 71 1 cli$get_value, 30 
; 168 $f§ 1 faoout, : putput formatted message 3 
; 168 544 1 igi $howd ! hash password routine : : 
3; 170 274 (1 LibScvt_dtime, : convert ASCII to system delta time 3 
; 6171 $f 1 LibScvt_time, ! convert ASCII te system abs time : 
3 7¢ 6 1 prv$setpriv; ' set privilege bits based on 3 
3; W 277 (1 ! privilege names : 
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; 176 0 
4 6 
79 8 
80 
: 
8 0 
84 0 
5 
4 
87 m 
88 0 
89 0 
90 0 
91 0 
35 0 
9 0 
94 40 
33 0 
96 03 
97 3 
98 3 
99 3 
00 3 
2 3 
08 
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INCLUDE FILES: 


rary ‘SYSS$LIBRARY:TPAMAC'; 
rary ‘SYSSLIBRARY:LIB'; 


—_ 
coo 


MACROS: 


em rr 


qualifiers 


iteral 

nua tle s = 14, 
num_op flags = 2, 
num pat lags = $: 

own 
2 Se 
uplit (Zascic "DISCTLY'), 
uplit (Zascic mg Aa te 
uplit (Zascic ‘LOCK S, 
uplit (Zascic ‘CAPTIVE'), 
uplit (Zascic "DISUSER') 
uplit (Zascic "DISWELCOME'), 


3 
B-an-1995 17:50: 


‘account’, 
~ ta 
seacectory’ . 
“ tlm’. 
‘Drelm’, 


*s_restrict’, 


*wsdefault', 
. rimedays', 
*jtquota’, 
‘dialup’, 
*network'’, 
‘remote’ 


sd{a) = 
bind Zname ('SD_', a) = $descriptor (a)%; 
sd ( 
*token!', *token2', 
‘biolm’, -oxtia, 
‘device’, ‘diolm', 
*fillm', ‘flags’, 
‘owner’, ‘password’, 
‘pgflquota’ *p_restrict’, 
‘privileges’, ‘sflags', 
*tqelm', ‘uic’ 
*wsquote', display’. 
‘maxdetach', *clitables', 
‘batch’, ‘defprivileges', 
‘interactive’, ‘local’, 
*pwdminimum', *quepriority', 


acro 
cstring(] = (uplit byte (%charcount (Xstring (%remaining)), 
Ustring (Zremaining)))%, 


Macro to creete string descriptor for command parameters and 


*astim' 
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*cputime', 


‘enqgim' 


*maxjobs', 


‘pflags 


‘priority’, 
"shrfilim', 
*wsextent', 
*maxacctjobs’, 


access 


‘expiration’, 
*pwdlifetime’, 


' number of FLAG TABLE entries 
' number of OPFLAG_TABLE entries 
! number of entries in prime days table 


bitposition 
pj tps ition 
bi 

bitposition 
bitposition 


flag table : vector [2 * num_flags + 1, long] initial ( 
* num_f'a 


fuatévadiscely). 
(uaf$v_defcli 
(uat$vlockpud} 
(uaf$v_captive), 
(uaf$v_disacat), 
(uaf$v_diswelcom), 
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opflag_table : 


pdflag_table : 
2 * num_p 


); 


: EQUATED SYMBOLS: 


Literal 
false 
true 


network_access 
batch_access 
local_access 
dialup_access 
remote_access 


(Zascic 


MONDAY") 
"TUESDAY'S, 
"WEDNESDAY'), 
"THURSDAY'), 
"FRIDAY') , 
*SATURDAY'), 
*SUNDAY'), 


1*4 


interactive_access = 


access_access 


oyte_length 
word” Length 


word_unsigned_le 


Long_ length 


local_access or dialu 
interactive_access 


naounu 
ea] 


j, 


3 
~bet=19B6 15:01: 


J 
0 
t 
speeition (uaf$v_genpwd) 
t 
t 
t 
t 


The definition table for flag bits for UAFSB_PDAYFLAGS and UAFS$B_SDAYFLAGS. 
vector (2 * num_opflags + 1, long] initial ( 


um_opflags 
uplit (Zascic 'DISDIALUP') 
uplit (Zascic "DISNETWORK' 


uaf$k_disdialup, 
uaf$k_disnetwork 


The definition table for flag bits for UAFSB_PRIMEDAYS. 


vector C2 * num_pdflags + 1, long] initial ( 
ags, 

Sbitposition (uaf$v_monday) 
$bitposition (uaf$v_tuesday 
Sbitposition (uaf$v_wednesda 
$bitposition (uaf$v_thursday 
Sbitposition (uaf$v_friday), 
Sbitposition (uaf$v_saturday), 
$bitposition (uaf$v_sunday) 


' logical false 
' logical true 


! mask representing /NE 
! mask representing /BA 
representing / 


3 
& 
Sd 
= 


' mask representing /INTERACTI 
access or remote_access, 

! mask representing /ACCESS 

or network_access or batch_access, 


' bits per byte 
! bits per word 


' for WS info 


! bits per longword 
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position (uafSv_dism 
position (uaf$v_noma 


position (uaf$v_pwd exp 
position (uaf$v_pwd 
position (uaf$v_a 
position (uaf$v_d 
position (uaf$v_disreconnect) 
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! Disneyworld ?? 
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! delimiters 


nnunnnnnnnnun 
No QO<«e« «© ot ont ow eo = 
a 


counted string 


nted string type indicator 
filled.string. = ess 


led string type indicator 


--o 
-c 


own 
status, 
cli_status, 


tparse_block : block Ctpa$c_lengthO, byte] 
preset (Ptpa$t counts = tpa$k_count0 
tpa$l_options] = tpa$m_abbrev), 
converted_uic, 
address, 


primary_access : b 

secondary_access: b 

no_flag : 4 

primary : 4 

secondary i 
' 


ASCII numbers from '0' through hex 'F° 


bind 
numbers = uplit byte ('0123456789ABCDEF'), 


‘NO’ prefix descriptor for negating privileges 
; no_dsc = $descriptor ("NO") : vector; 


: External messages 


external routine 
LIBSSICNAL: addressing_mode(general); 
external Literal 


UAF $_BADVALUE, UAFS_ 
UAF$_INVSTR UAF $~ 
AF UAF $~ 


EXTRAPARN WAF$_INVDEV 
UAF $ “NAME T00B1G, 


NVUSERSPEC, UAF$"KEYNOTFND, 
NOARG, UAF S“NOQUOTE , 
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-O0ct-1 UAF .BUGSRC JUAF PARSE .B32; 1 (2) 
; UAF $_NOUSERSPEC, UAF$_PRVNOTFND, UAF $_PRVNOTUNQ, ; 
; UAF S-PWDSYNTAX, UAF$~PWODNCH UAF $~PWDNOL 
; UAFS"UICERR, UAF$"VALTOOBIG, UAF$~ZCONFLICT; 


Oo 


; EXTERNAL REFERENCES: 


external Literal 


FRLRLRLRLLLKLLLKRRKKKEE 


SSN NNSA AAA AAA AAA MMIII 


TPARSE state table to parse /<access> qualifiers 


Sinit_state (access_states, access_keys, $tpa); 


c= 
— mF, 
- 
S 
Lad 
oo 


$state (, 
(*PRIMARY', terminal, check primary. true, primary), 


vuvuvvD 


Coooooce 


Mann & 


("SECONDARY’, terminal, chec 
, (tpas_decinal,.., right_bit) 


secondary, true, secondary), 


9 1 

0 1 : 

1 4 3 

§ 1 ; 
3 1 : 
3 4 1 F 
3 5 1 ; 
; § 1 : 
; 1 ; 
3 8 1 $ 
3 1 s 
; 0 1 3 
; 1 ! encrypt, ! encr/ption algorithm to use : 
; : 1 LibS_ambkey, ! status for ambiguous keyword 30 
3 : : LibS_unrkey, ! status for unrecognized keyword : 
; $ 1 cli$_abkeyw, ! message symbol for ‘‘ambiguous keyword” PF 
3 1 cli$_ivkeyw, ; messege symbol for ‘‘unrecognized keyword"’ 3 
; 8 1 cli$_negated, H quai} ier explicitly negaied F 
: 9 1 CLIS_ABSENT, ! Qualifier not given : 
3 oa prv$_notunq, F 
: 366 Be 1 ! prv$_invnam; ; 
; 04 : 1 external ! Global storage from UAFMAIN 30 
7001 !JRLOO38 0474 1 ua fSoq_sysuatf : block C,byte], ! SYSUAF auditing flags 3 
; 369 0475 1 uaf$gl_ctlmsk : block, 3 
3; ie 0476 1 authorize_commands : eacpepe tng. node ( general ), ; 
3; (SVT 0477 1 cmdlindsc : block C,byteJ, : 
; % 0478 1 call_count, F 
3 37 0479 1 sym str, ! Symbolic character set F 
; ae 0480 1 match_ftokenlen, 3 
,. Ss 0481 1 match_token, : 
: a8 Rees 1 tokendsc : block C,bytel, 3 
3: 377 04835 1 tokenlen : word, ' Bound to TOREMDSEEDSCSY LENGTH 3 
3 378 0484 1 tokenptr, ! Bound to TOKENDSCLDSC$A_POINTER] 30 
: 379 ot H 1 uic_f ag. ! Wildcard parsing flags $ 
; 380 56 1 grp_wild, $ 
s ie oe8 7 mem_wild, : 
; ae pees : str_wild, : 
3; 384 0490 1 time_buf : block C,byte], ! Buffer to receive current system time 3 
; 385 491 1 pwd flag, ! User did not supply password flag é 
: nee ! recbuf : block C,byteJ]; ! The current UAF record : 
; 0494 1! 3 
3 95 1 :0 
5 4 1 : 
5 q : 
3001 1 : 
1 : 
: 1 : 
3 1 3 
; 1 3 
$ 1 3 
3 1 : 
5 1 : 


SSLERES.- SSSELE 


SRANVLS SELES 
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v04-001 B-Jan- 198s 1g:dNit0 UAF -BUGSRESUAF PARSE .6455 1 ’ (2) 
; 400 p 1 $state ( 
: 401 P 1 (fa*), 
; 40 b 1 (tpa$_eos, tpa$_exit, set_range) 
7: i eee 
; 405 P0511 1 $state (, 
; rey P 21§ 1 (tpa$_decimal,, set_range) 
: 40 Ba 1 : 
; 408 514 1 
: 409 P 8212 1 $state (terminal, 
: 21? P 218 : (tpa$_eos, tpa$_exit) 
; aig O88 ’ 
; 41 0519 1! 
: 416 0520 1 ! TPARSE state table for old /P_RESTRICT and /S_RESTRICT qualifiers. 
3 Be 
001. { JRLOOSE b2 5 ! Sinit_state (restrict_states, restrict_keys, Stpa); 
: 419 P0525 1 $state (, 
: ogy P 8 § ! , (tpas_decinal.... right_bit) 
; 633 0528 1 : 
3; 4 P 0529 1 $state (, 
; 426 P 05350 1 ("="), 
: : H P Baa) ' (tpa$_eos, tpa$_exit, set_range) 
; i539 938 1 ; 
; 428 P0534 1 $state (, 
: 429 P0535 1 (tpaS_decimal,, set_range) 
Eat Ee 
: 43 P rat 1 $state (, 
; 43 P 0539 1 (tpa$_eos, tpa$_exit) 
; 434 0540 1 ); 
; 435 0541 1 
3 $38 b286 1! 
; 437 0545 1 ! TPARSE state table for UIC spec 
; 438 544 1! 
: 439 gees 1 
g00! mL 0058 t943 ! Sinit_state (uic_states, uic_keys, $tpa); 
> 46 PO548 1 Sstate (. 
3 $47 P 44 : (tpa$_ident, tpa$_exit,,, converted_uic) 
: 445 551 1 ° 
; 44 226 1} 
3; 446 5535 1 ! TPARSE state table for directory string 
: 448 554 1! 
: 449 555 1 
300% .{ JL0058 228 ' Sinit_state (dir_states, dir_keys, $tpa); 
: 43¢ u 358 1 $state (, 
; 45 P 0559 1 (ufd), end_state), 
: 454 P 0560 1 ( (subdir), énd_state), 
; 455 P 0561 1 hw > * 
; 456 P 0562 1 ("<") 
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; 457 267 1 ); 

; 4 64 «1 

; 45 P 0565 1 $state (, 

; 460 P 66 1 ( {ufd)), 

§ ret P es ! .s (subdir)) 

: 46 1 ‘ 

: 464 6 $3 1 $state (, 

nd | a 

; ce? 0378 ); 

; 188 P 0875 1 $state (end_state, 

3 oy P 0377 : (tpaS_eos, tpa$_exit) 

: 47 578 1 : 

; 47 P $338 1 $state (ufd 

; rh P p280 : (tpas_octal., checkvalue) 
: 476 0582 1 . 

; 477 P b2 ¢ 1 $state (, 

: O05 038s 1 par 

: 480 0586 1 ; 

; 481 p itd 1 $statc [. 

: rt P Bees : (tpa$_octal, tpaS_exit, checkvalue) 
: 6B4 0590 1 ; 

; 485 P 0591 1 $state (subdir, 

: Pty P ba08 : , (tpas_synbol., chec* length) 
: 688 0594 1 , 

; 489 P0595 1 $state (, } 

; 690 P 0596 (1 (*.*, subdir), 

: 491 P 0597 1 (tpa$_lambda.tpas_exit) 
; 692 0598 #1 3 
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599 1 Asbttl ‘update_record - modify all specified fields’ 
lobal routine update_record = 
gin 
ee 
' 


; FUNCTIONAL DESCRIPTION: 


SESS 


Scan the remainder of the user's input command Line for parameters 
and parameter values. Pull off each parameter keyword and check 
that it is valid, then call the associated routine to process 

the supplied va.iue or string. 


! INPUTS: 


Soe 


none 


1 
: 
; 
! 
: 
' 
; 

i 
i IMPLICIT INPUTS: 
: 
i OUTPUTS: 
; none 
; IMPLICIT OUTPUTS: 
none 
; 
' 
; 
; 
; 
; 
: none 


o 
AANA NS 


atta 


! ROUTINE VALUE: 
‘rue -> all keywords and parameters were specified correctly 
SIDE EFFECTS: 


rot tata 


WAAW AAW 


lee 

status = false; 
primary = false; 
secondary = false; 
no_fiag = false; 


uaf$gq_sysuaff(0,0, 
vat sean ey suet tEs.0233 
Sassume(nsa_s_sysuaff 


riot ot td 


0] = 0; 
0) = 0; 
» eql, 8); 


1 
! If this is part of a series of calls from WILD_USER, the command 
; Line must be reparsed after the first call 


if .call_count neq 0 


433333355333 


n 
cli$dcl_parse (cmdlindsc, authorize commands); 


if CLISPRESENT(Zasc 
and (CLISPRESENT(SD 
begin 


id'G 
PAS 


ENERATE_PASSWORD') 
SWORD) fieq CLI$_ABSENT) then 


REAR OOOO UE WO OB NO NEWN 0 ODNOU EWN OORT UNOS 


SSES. 
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: 47 
; 548 ; LIBSSIGNAL (UAFS_ZCONFLICT); 
; 388 $85 end 
; $51 660 else if CLISPR fs ENT( SEeec id’ GENERATE PASSWORD’) 
; 26 661 or ae SPRESENT(SD_PASSWORD) neq CLT$_ABSENT) then 
: 887 ee8 ‘ 
[001 ! JRL0038 664 nae sysuaff(nsa_v_password] = true; 
$002, |3RLOOSE 0665 stl - 
: 55 006 if CL ISPRESENT (Basc 1d" GENERATE PASSWORD") then 
; 288 Oss if not GETPAS SWORD () then 
; 558 669 LSE; 
: 889 0670 Re CBUFLUAFSY- Pwb_EXPIRED) = FALSE; 
: 560 0671 STATUS = TRUE; 
; 561 067 
; 266 067 d; 
; 36 0674 
; 564 067 
; 565 0676 ite ctlmskCuaf$v_rename) 
: 566 0677 
s Ser 067 e  eutere true; 
; 568 0679 
; 569 0680 ! 
; 570 0681 2 ! Check that we're not at the end of the command Line. Continue 
3 (OT 068 i | Processing parameters until the end is reached. 
; o7¢ 068 
. or 0684 
3: 574 0685 th Status = cli$present (sd_access); 
; 575 068 f Tcli_status 
: 278 0687 oF. oclie Status eql cli$_negated 
3s oT 0688 
3; 578 0689 in 
3001 !JRLOO038 0690 uat$gq_sysuaff(nsa_v_access] = true; 
; 579 0691 if not getaccess (3d~ ~access, access_access, .cli_status) 
; 580 069 H then re turn false; 
; 581 069 status = true; 
3 286 06 end; 
; 58 0695 
; 584 069 cli.status = cli$present (sd_interactive); 
; 585 069 if Tcli_status 
; 586 0698 or .cli_status eql cli$_negated 
s 5387 99 then 
3 5 00 begin 
3001 ! JRLO038 701 ye $gq_sysuaff(nsa_v_interactive] = true 
; 589 070 f not geteccess (3d interactive, hateraitive access, .cli_status) 
: 590 070 oe return false; 
: 4 0704 status = true; 
: 92 705 end; 
s $9 06 
3 594 7 cli_status = cl iSpresent (sd_batch); 
; «6595 708 if Tcli_statu 
; 236 709 or elit “stetus eql cli$_negated 
3; 59 710 een, 
;. 598 fae begin 
3001 !JRL0038 712 $9q_sysuaff(nsa_v_batch] = true; 


—— 
a 


4 i 
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; $99 0713 if mot getaccess (sd_batch, batch_access, .cli_status) 
; 600 0714 then return false; 
; 601 0715 Oh = true; 
2 re 
: 604 0718 cli <8 totus = Se eeereoaat (sd_dialup); 
; 605 0719 if Vcli_statu 
; 606 o7s9 or .cli_ “status eql cli$_negated 
3 ped Bf 1 then 
3001 !JRLO038 $758 lies sysuaff(nsa_v_dialup] = true , 
; 609 65S¢ if not getaccess (Sd_dialup, dialup: access, .cli_status) 
: 610 0725 then return false; 
; 6861} B59 status = true; 
: Big ee ; ite 
; 614 0729 cli_status = cli$present (sd_network); 
; 613 0730 if Tcli_status 
; 616 0731 i oclie Status eql cli$_negated 
: 8g O733 § Legs 
; egin 
3001 !JRLOO38 0734 uat$gq_sysuaff(nsa_v_network] = true 
: 619 0735 not getaccess ($d~ network, netvort _access, .cli_status) 
; 620 0736 3 then return false; 
: 621 0737 3 status = true; 
im tet 
: 626 0740 cli_status = cli$present (sd_local); 
: 625 0741 if Tcli_status 
; 626 Bree or “ehie Status eql cli$_negated 
: 856 Opes § beg: 
3 egin 
3001 !JRLOO38 0745 uat$gq_sysuaff{nsa_v_local] = tru 
3 6¢8 0746 if not getaccess (3d local, local. access, -cli status) 
: 650 0747 then return false; 
; 631 0748 3 status = true; 
: 833 ie i ee i 
; 634 0751 : cli_status = cli$present (sd_remote); 
; 635 Br e6 2 if Tcli_status 
; 636 075 or tli? Status eql cli$_negated 
: 83 ER Benge le 
3 egin 
;001 ' JRLOO38 8728 uatigq_sysuaff(nsa_v_remote) = : 
; 639 75 if not poteccess (307 remote, feunta. access, .cli_status) 
; 640 0758 then return false; 
: 641 0759 status = true; 
aoe iy po 
3 664 76 4 _&! oresont (sd_account) 
fe peas 
£001 49.0058 765 ied sysuaff(nsa_v gitcountd » crue: 
3 766 Clis et_value (sd zaccount 9 kengsc) 
; ta 76 !eee f Rot getstring (recbut uaf$t saécount), uaf$s_account, filled_string) 
3 649 3768 if not getstring (recbufCuaf$t_account), 8, filled-string) 
; 650 769 then return false; 
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:001 ! JRLOO38 
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;001 !JRLO038 
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Status = true; 
end; 


a cli$present (sd_astim) 


"be in 

ua 1$9q sysyat fines. v_astim]) = true; 
cli$gef_value (sd zestin. tokendsc); 
if not getval (recbuf 

then return false; 

status = true; 

end; 


2 cli$present (sd_biolm) 


ol sysuaff(nsa_v_biolm] = true; 
clisget. value (sd_Biolm, tokendsc): 


not getval (recbufCuaf$w_biolm), word_length) 


then return false; 
status = true; 
end; 


as cli$present (sd_bytim) 


usfsog sysuaff(nsa_v_bytim) = true; 
i$get_value (sd_Byfim, tokendsc); 
sf not petval | (recbufCuaf$l_bytim), 
then return false; 
status = true; 
end; 


eee cli$present (sd_cli) 


uss sysuaff(nsa_v golds crus: 
iSoet value (sd_t toke 


ndsc 
sf" not getstring Treebultuersee “getclid, uaf$s_defcli, counted_string) 


then return false 
uaf$9l. ctlmsk vate glitab. pres] = 
ector t 
uaf$gl_ctlmsk 

A = true; 

en 


+B Vitnenteua (sd_clitables) 
“be in 


recbu 
uaf$v_cli] ="true; 


us 1399 sysuaff(nsa_v_clitables) = true; 


Li$geft_value (sd zl tables, tokends 


eds 
not Getstring Trecbuf uaf$t eclitablesi, uaf$s_clitables, counted_string) 


then return tus 
uaf$gi_ctlmsk uatéy_ clitables] = true; 
status's = true; 
end; 


uaf$w_astim], word_length) 


uaf$t_ “clitables), 0; .byte] n-q 0); 
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: 703 0827 if o°{ {Spresent (sd_cput ime) 

> 704 0828 

s Us 8 9 begin 

:001 'JRLOO38 0830 $9q_sysuaff(nsa_v_cputime] = true; 
3 £06 0831 cl isge value isd cputine, tokendsc): 
; 70 08 ¢ f not petcput! m 

: 708 08 en return ards, 

; 709 0834 status = true; 

; 710 0835 end; 

S Pan 0836 

; ayy 0837 7 at ttoresent (sd_defprivileges) 

Tee Be 3 

; 714 8 ee in 

3001 !JRLOOS8 0840 uat$gq_sysuaft(nsa_v_defprivileges] = 

; 73 0841 if not oeeeriy, (sd- “ds tprivileges. recbuttuatsq. def_priv]) 
: 716 Bare ther return false; 

3 717 084 status = true; 

:; 718 0844 § end; 

; «719 0845 

: 720 0846 2 y ao! ltoresent (sd_device) 

: 721 0847 

; vee 0848 ustso 

3001 !JRLOO38 0849 a1 $99 sysuaff(nsa_v_device] = true; 
3; 723 0850 i$gef_value (sd device, tokendsc): 

; 726 0851 f not petdey' ce 

3 res Oaes ies return ely 

: 726 0853 3 status = true; 

3: 727 0854 end; 

: 728 0855 

: 34 0856 iY oft Sterenent (sd_diolm) 

: 730 0857 

: 731 0858 be in 

3001 !JRLOO38 0859 uat$gq_sysuaff€nsa_y_diolm] = crus 

; P36 0860 clisget. value (sd_didin, tokendsc 
ee 0861 f not getvel ¢ (recbufCuaf$w wos word_length) 
; 734 baee on return false; 

. re 086 status = true; 

:; Ts 0864 end; 

: 737 0865 

; 738 BRe8 _£ Moresent (sd_directory) 

: 739 086 

3.740 0868 Ueto 

;001 'JRLOO38 0869 1399 sysyet tines v.directory] = true; 
: (741 o870 eli Soet value (sd_directory, tokendsc): 
3; 74 71 f no t petdirectory '@) 

; 74 087 then” return false; 

3 «6746 087 status = true; 

3; «7645 74 end; 

s 7% 75 

3; 7% a ie _ot itoresent (sd_enqim) 

: be 7 

3; %% 7 be in 

7001 ! JRL0038 7 uat$gq syoyet tines. vienqim) = krug: 

; 750 0 clisg get_value (sd senda. tokends 

3 fot 1 ; not getval (recbufluaf$w woes word_length) 
3 3g § then return false; 

3; status = true; 
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end; 


i-status = cli$present (sd + seebaenig 3 
cli_status eql cli$_negafed 


“ts AySysperflnga. v_expiration] 

0 uaf$s_ “expiration, recbuttuat$q_ expiration] ) ; 
= = true ; 
ba 


nit ool Status 


usfseg sysuaff(nsa_v_expiration] = true; 
i$get_value (sd é + Ae gh tokendsc): 
it not Tstatus = tib cvt_time (tokendsc, recbufCuaf$q_expiration])) 
en 


begin 
signal (.status); 
return false; 
end; 

sté.us = true; 


iy 5h Soresent (sd_fillm 


usfoa ayoyettinat.y fillm) = true: 
‘$gef_value (sd “FiTim, tokendsc); 
f not Getval | (recbufCuaf$w_fillmJ, word_length) 
then return false; 
status = true; 
end; 


2 fh teprasent (sd_flags) 
“ in 


uat$gq_ sysyef tines, v_flags] = true; 
if not ads lags () 


then return false; 
status = true; 
end; 


7 _f! Morecent (sd_jtquota) 


ust seq sysuaff(nsa_v_jtquota] = brug: 
eli $get_value (sd tayote tokendsc): 
if not getval (recbufluaf$t “}tquotad, Long_length) 
then return false; 
Status = true; 
end; 


7 aft Sorecent (sd_lgicmd) 
 pegin 


UA 


45 


ae 


uF 
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us f$9q eryeret tinge, vilgicmd] = crue: 
5b 189 Sget value TgTcmd, tokends s¢); 

§etstring “rebut tuarse _\gicmd], uaf$s_lgicmd, counted_string) 
then. a urn false; 
status = true; 
end; 


001: JRLOO38 
0 


on lole la le leloloa la) 
oonoovono 

tat at et ee 

a 


ooOoo0o09o 


zs cli$present (sd_maxjobs) 


Rav aOSELE. 


BNOVUVES--WN“"O0Onour-- 


001 !JRL0038 oid sysyat fines. v_maxjobs] = erue: 

cl isget. value (sd fai jobs tokendsc) 

if not getval (recbufluaft$w vpaxjobs]. word_length) 
then return false; 

status = true; 


end; 


coo coco — Cd CV OD OD. 
MPM] Se So oe 
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ae cliSpresent (sd_maxacctjobs) 


09 
44 
9 
09 
09 
096 


ot sysyet tines. vimaxacctjobs] = true; 
cliSget. value (sd_maxacctjobs, tokendsc); 
if not petval fretbuf uafSw_maxacctjobs]. word length) 
then return false; 
status = true; 
end; 


001 !JRL0038 


Co 09 Od — Cd 0D CD CD CD OD 


2 B. cli$present (sd_maxdetach) 


WWweeirorereoronony 


W--™—O 0 


usftog sysuaff(nsa_v_maxdetach) = true; 
i$get_value (sd_maxdetach, tokendsc); 
not getval (recbufCuaf$w “maxdetach), word_length) 
then return false; 
status = true; 
end; 


Ww 
— 
P°] 
_ 
S 
& 


7S cli$present (sd_owner) 


-- SSSR VRAE 


usfog sysuatf{nse. v_owner] = true; 
i$get_value (sd_Gwner, tokendsc); 
f not getstring Trecbufluatst “owner, uaf$s_owner, counted_string) 
then return false; 
status = true; 
end; 


78 cliSpresent (sd_pbytlm) 


001 !JRLO038 


rs 


Ss 
AUF: -OOOnoul wry: 


w 


ust tog sysvettinea. y oPbytlal » true; 
Li$geft_value d_pb yple tokendsc) : 
if not Setvet (ret ufCuaf$l_pbytlm], long length) 
then return false; 
status = true; 
end; 
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: 7 99 if cliSpresent (sd_pgflquota) 

7. 1 Lee 
7001 'JRLOO38 1001 usfiog pyoyert tinea, vopgflquota] = true: 
3 B60 1 § si Soet value 4-69 gflauots. tokendsc) 

; 861 1 f not getval (ae ufCuaf$l_pgflquota], 3 * byte_length) 
3 B66 ISRe then a urn false; 

; 86 1005 status = true; 

Po oe 

; 866 1908 if cliSpresent (sd_p_restrict) 

a ee Bh 

3001 'JRLOO38 = 1011 ye $9q. syoust tCose_y vip_restrict] = true; 
; 869 Isis Haag 98. ct” (Sd_p_restrict) 

; 870 101 ay return false; | 
; 871 1014 status = true; 

; 4 12 end; 

; 874 1019 if cliSpresent (sd_s_restrict) 

Mh Seog boa 

3 n 

3001 !JRLOO38 1020 ye ~sysuaff(nsa_v_s_restrict) = true; 
; 877 1021 secondary = true; 

: 878 1936 f not getrestrict (sd_s_restrict) 

; 879 10 Hi return false; 

; 880 1024 status = true; 

3 oa se end; 

: 88 1959 if cli$present (sd_pflags) 

‘aims Beg" 

£001 | JRLOOSE 1930 ust 9q. syouettCnsa. v.pflags] = true; 

: rimary = 

; 887 1936 er not gexpf lags (sd_pflags) 

; 888 103 then return fa 

; 889 1034 status = true; 

3 aoy 1333 end; 

: 89 1089 if cliSpresent (sd_sflags) 

; $92 1939 oom 

;001 'JRLOO38 1040 uefsg0. syoueffCnse_y _Sflags] = true; 

; «895 19) < pet bags ($07 _Sflags) 

3 38 1 § Hy return false; 

; 89 104 status = true; 

3 38 : $ end; 

: 900 1 6 if cli$present (sd_prcim) 

‘timo ieee 

3001 'JRLOO3SB § ot sysuaff(nsa_v_prcim) = true; 

; 903 1050 cli$get_value (sd_ pret. tokendsc); 

: 904 1051 if not getval (recbufluaf$w_prccntd, word_length) 
; 905 1 2¢ then return false; 

; 208 105 status = true; 

; 90 1054 end; 


ro 


H 4 
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: 908 1055 
: 4 : 8 ak cli$present (sd_primedays) 
: 911 1 8 “pegin 
37001 !JRLOO38 105 ua Soq_ sysuaff(nsa_v ror inedays) = true; 
; a 1060 if not getprimedays 
; 91 1061 then i. urn false; 
; 9146 1806 status = true; 
3 a 1307 end; 
: 319 1065 2 if cli$present (sd_priority) 
ance Bet 
:001 'JRLOO38 1 a sysuaff(nsa riority] rue: 
: 920 1 5 eliSget. value (sd d_ pri or ity. tok okendsc) 
: 921 1070 if not getval (recbufCuaf$b _pri byte. Length) 
; 9 ¢ 1071 then return false; 
3; F 1976 status = true; 
8 he Si 
3 $ 107? 7S cli$present (s¢_privileges) 
; 356 1899 “peain 
3001 !JRLO038 1078 ua $9q_ sysuaff(nsa_v_privileges] = true 
3 44 1079 etpriv (sd_privileges, recbuftuat$q. priv]) 
; 9 1080 chen 7 urn false;” 
; 931 1081 status = true; 
; 33 1086 end; 
: 934 1984 CLI_STATUS = CLISPRESENT(Zascid'P WDEXPIRED' ); 
; 935 Hs if TCL CLI. STATUS eql CLIS_N NEGAT ED t 
; 1989 Local tine: Long: 
RD Tam TREE | Hiuso-azeuaibaarbgehteyined = eon 
00 iJRLOO38 1090 TIRE = =-ARCB (. TIME+ tUpye T) = 0; 
7004 'JRLOO38 1091 yet sae preveriie nsa_v_flags) = true; 
: 940-2 1936 RE CBUF CUAF $V  ERPTRED 2 FALSE: 
; 31 199 TATUS = TRUES 
3 en 
: 94 1998 else if .CLI_STATUS then 
; 944 1399 begin 
S001 Jet 199 salice seeeadttie dlifetine] = t 
3 } suaff(nsa_v_pw me) = true; 
£05 3A 00 1999 Tinee®-RECBUF Luar $0. POD DATEd: 
3003 !JRL 11 TIME = -1; (TIRE *Zupval = =1; 
37004 'JRLOO 1101 secede ae tags) = true; 
: 948-2 11 ¢ RECB TuaF V_PwWD eebrace = FALSE; 
; 949 11 STATUS = TRUE; 
es 1108 me 
: He 11 cli_status = cli$present (sd put fet tee) s 
: 95 11 if “cll Status eql cli$_negated 
a es Bh 
'001 'y 0038 1119 i a,Sysyart (nga. v_pwdlifetime] = ye: 
3002 iJRLOO 111 uaf$s_pud_lifetime, poabel uaf$q_pwd_lifetime] ) ; 


vaeoate 


2a 


001 !JRLO038 


exsceseges seeees 


“SSILSS8 
NO 


VW 


9 
;001_!JRLOO38 


:001 ! JRLOO38 
985 


986 
987 


991 


:001 ! JRLOO38 
995 


eessesz 


JRLOO38 


S33. - 


Senawbons 
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Ss 


update 
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ce a ed ed ed ee ed ed ee ed ee ee ee ee a ee el a ee el ee el ee el el el cel el el ee ee el el el eel 
o ee et ee yh A Se at at nt ot et et et et 
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Oe et ee ee ce ed ee ce el ee el el el cl cel el cel el el el el el el cel eel cl ells cel el el elt lt ell eels cect ls cel cells cells cls lls seals asl cals alls calls ails alls 


aon 
cos) 


RIAA AAAI HAWAII PIPPI AMAA AAI INIA BB PAB BB PAI IIOP tt 
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fs aff(nsa_v_flags] = true; 
R ceUrtukF sv jo *ERPIREDI = FALSE: 
cones = true 


end 

Se 
if .cli status 
then 


e 
~ 


ust tog Picts Ge ahidiifeciee) = = ti 
et_value me, 
§ ‘chigalt, f need shes c$w Len th ~ errokendscLdsc$a pointer], 
; P th 
Lit(Zascii' NONE’) 


e 
Io uaf$s -Pwd_lifetime, recbufluaf$q_pwd_lifetime] ); 
F eae = true; 

en 


else 
7 8 not (status = LibScvt_dtime (tokendsc, recbufCuaf$q_pwd_lifetime))) 


“pesin 
signal (.status); 
7s urn false; 


vats suaff(nsa_v_flags] = true; 
830, syeue Pwd SERPIREDS = FALSE; 

status = true; 

end; 


a cli$present (sd_pwdminimum) 


ust eq aysyet tines. v pyésinioun) = crue: 
eli $get_value (sd_Hwdminimum, tokendsc 
f not getval (ae uf(uaf$b_pwd_ enerks. byte_length) 
then return false; 
status = true; 
end; 


7s cliSpresent (sd_quepriority) 


"be 
uel oq sysvatf(nse, v sovgor jority? = ¢ = Srup: 
gh i89 Soet value (sd_ fuer iority, Obgnds 

Getval (retbufluaf$b_quepri alg Length) 
then. a urn false; 
status = true; 
end; 


28 cliSpresent (sd_shrfillm 


a a_s syef tinea y shrfilia) : Sruss 
t Sgete valor hffillm, token 
t getval (recbut uafSw_ shrfitind: word_length) 
hy return false; 
status = true; 
end; 


fosanct9RS 17:50:18 yAKeNd Lieg32 vi -0m763 


roe 


oo 


UAT 
vo< 
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v04-001 update_record - modify all specified fields meet F 13:08:40 {UAF -BUGSRE UAF PARSE .832;1 3) 
; 1008 1198 
3 11 » if cliSpresent (sd_tqelm) 
S101) 1172 § **o09; 
3 n 
3001 !JRLOO38 1198 ua'$9q sysyettinse vitqelm) = true; 
: ite 1174 cl iSget value sd. tgein. tokendsc); 
; 101 1175 f not getval (recbufluaf$w_taqcnt], word_length) 
; 1919 1178 then return false; 
; 1015 117 status = true; 
io fate 
: 1 18 1180 if cli$present (sd_uic) 
: 1026 1182 § beg 
; egin 
3001 !JRLOO38 = = 11 : uat$gq sysuaff(nsa_v_uic] = true; 
: 1021 1184 cli$get_value (sd_Gic, tokendsc); 
; 10 ; 1185 f not getuic () 
; 10 1158 then return false; 
; 1024 118 status = true; 
1056 1189 = 
: 1027 1190 if cliSpresent (sd_wsdefault) 
<a 
; egin 
7001 !JRLO038 1198 uat$gq sysuaff(nsa_v_wsdefault] = true; 
: 1030 1194 cli$get_value (ed_usdetoutt, tokendsc); 
; 1031 1195 f not getval (recbufCuaf$l_dfwscnt), word_unsigned_length) 
: 1036 Bb then return false; 
; 103 119 (recbufCuaf$l_dfwscnt])<16, 16> = 0; !** temp until longword is supported 
; See 1198 status = true; 
3 9 5 1338 end; 
; 1939 1 1 if cli$present (sd_wsextent) 
; 1939 i 08 ay in 
7001 'JRLOO38 1204 ua?$ga sysuaff(nsa_v_wsextent] = true; 
: 1040 1205 cli$get_value (sd_wsextent, tokendsc); 
: 1041 1 54 if not getval (recbufCuat$(_wsextentl. word_unsigned_length) 
: Ho 120 then return false; 
; 104 1208 (recbufCuaf$l_wsextent])<16, 16> = 0; !** temp until longword is supported 
3 1044 1209 status = true; 
aoa a = 
: 1 121 if cli$present (sd_wsquota) 
3 1948 1 18 then ” ‘ 
3.104 1214 begin 
3001 !JRLOO38 1215 uat$gq sysuaff(nsa_v_wsquota] = true; 
; 1050 1 16 Li$get_value (sd_wsqyote tokendsc); 
3; 1051 121 if net etval (recbu uaf$l_wsquota], word_unsigned_length) 
: 1026 1 18 then return false; 
; 105 121 (recbufCuaf$l_wsquota))<16, 16> = 0; !** temp until longword is supported 
: 1054 1220 status = true; 
3 1922 ! 1 end; 
3 1987 ! if -uaf$gl_ctimskCuaf$v_copy] or .uaf$gl_ctlmskCuaf$v_add) 
; en 
3; 1059 1225 return true; 
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-TITLE UAFPARSE 
-IDENT \V04-001\ 


-PSECT STPA_KEY1,NOWRT, SHR, PIC,1 
C0000 ; TRASKEYSTO 


v. LKB 0 
59 52 41 4D 49 52 50 00000 ; fPASKEYST 
U.4: ASCII \PRIMARY\ ; 
FF 00007 BYTE = =1 ; 
00008 j TRASKEYSTO : 
59 52 41 44 4E GF 43 45 53 00008 ; TPASKEYST 
0.13: .ASCII \SECONDARY\ ; 
FF 00011 “BYTE = =1 : 
FF 00012 ; TPASKEYFILL 
U.21:  .BYTE 1 ; 


.PSECT $TPA_STATE,NOWRT, SHR, PIC,1 
00000 ACCESS_STATES:: 


F100 00000 ; TPASTYPE ‘ 
een, Sere siBhsactiON” “ct PP IMARY=-U.6>-4> 
CoeeH0oN% GOODE fFFABAOON ag <<PRIMAY To , 
00000001 000A ; TPASMASK ; 
0000* 0000€ siPASTARGEY Seah ai 
F101 00010 ZIRASTVPE peat 
steaananess atc d.t8n CONG <<CHECK_SECONDARY-U. 15>=4> 
ee b. Mer LONG <<SECONBARY<U. 142~49 
00000001 001A ; TPASMASK : 
0000+ ooore siPasrancesn” : 
45*3 00020 sipastyeé sg tort 
en §00r Lon <<RIGHT_BIT-U.20>-4> 
002d 00026 ; TPASTYPE 3 ‘ 
95F7 00028 sibairyPE teas ; 
00000000v 0002A ; 7PASACTION 7 
U.246: .LONG <<SET_RANGE-U.24>-4> : 
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FFFF 
85F3 
00000000v 


15F7 
FFFF 


45F3 
00000000« 
0020 
95F7 
00000000v 
FFFF 
85F3 
00000000v 
15*7 
FFFF 


55SEC 
00000000+ 
FFFF 


19F8 
0000+ 
0000* 
19F8 
0000 
0000« 
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~Oete19 
0002€ ; TRASTARGE? 
00030 ; TPASTYPE 

U.26: WO 
00032 aC 
00036 ; it TERMINAL 
00036 : TPASTYPE 
00038  TRASTARGET 


UAF .BUGSRC JUAF PARSE .B32; 1 


=312465 
<<SET_RANGE=U.27>-4> 
0 

5623 

-1 


:BLKB 2 
$008¢ RESTRICT_STATES:: 


0003¢ ; TRASTYPE 
0003E ; TPASADDR 
00042 : TPaStYPE 
00044 ; Us Starved 
00046 ; ft PE ae 
0004 ; 33s vanet 
0004C ; Us 38 ene 
0004E ; {1 Oe 
00052 U pkérPée 


U. D 
00054 ; TPASTARGE T 
40: D 


Ss: Cs. S 


Ope, pte 


-BLKB 
0058 UIC_STATES:: 
; TRASTYPE 


17907 
<<RIGHT_BIT-U.32>-4> 
45 

-27145 
<<SET_RANGE=U. 35>-4> 
-1 

=31245 
<<SET_RANGE-U. 38>-4> 
5623 

-1 


<<CONVERTED_UIC-U.43>-4> 
-1 

0 

6648 

<<U.67*U.48>-2> 
<<U.49-U.50>-2> 

6648 

<<U.52-U.535>-2> 
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v04 
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0058 
043¢ 
09F8 
0000* 
ODFe 
0000* 
0050 
043€ 


15*7 
FFFF 


85F4 
00000000v 
042C 
9SF4 
00000000v 
FFFF 


85F 1 
00000000v 
102€ 
0000* 
15F6 
FFFF 
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U 54: _ , WORD 
$T YPE 


0006C ; 
0006E 
00070 ;Tf 
00072 
00074 
00076 
00078 
0007A 
0007¢ 
0007¢ 
0007€ 
00080 
00080 
00082 ; 
00086 ; 
00088 
0008A 
0008E 
00090 
00090 
00092 
00096 
00098 
0009A 
0009¢ 


-PSECT 
00000 ACCESS_KEYS:: 
00000 ; TPASKEYO 
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<<U.49"U.54>-2> 

91 

1084 

2552 

<<U.47*U.58>-2> 

3576 

<<U.52-U.60>-2> 

93 

1086 

0 

5623 

-1 

0 

=31244 

<<CHE CKVALUE=U.66>-4> 
1068 

-27148 
<<CHECKVALUE=U.69>=-4> 
-1 

0 

=31247 
<<CHECKLENGTH=U. ~2--4> 
4142 

<<U.52-U.74>=2> 

5622 

-1 

STPA_KEYO,NOWRT, SHR, PIC,1 
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UAI 
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-BLKB 0 
WORD <U.2-U.1> 
<U.11-U.1> 


U.1: 
0000* 00000 Ne ‘pam 
0000* 00002 ; TPASKEY 
U.12: WORD 
00004 RESTRICT_KEYS:: 
BLKB 
00004 ; TPASKEYO 
U.50: -BLKB 
00004 aeaeiag 
00004 ; TPASKEYO 
U.41: -BLKB 
00004 DIR_KEYS: : 


BLK 
00004 ; TPASKEYO 
0.45:  .BLKB 


-PSECT SPLITS,NOWRT,NOEXE ,2 


oo oF fo So O&O 


31 6€ 65 68 6F 74 00000 P.AAB: .ASCII \token1\ 
00 -BLKB 2 
00000006 00008 P.AAA: .LONG 
00000000" 0000 »ADDRESS P.AAB 
32 6€ 65 6B 6F 74 4d P.AAD: yt prenens\ 
a4 43 0018 P.AAC: .LONG 6 
Oopg00y . BR) ADDRESS P.AAD 
74 6€ 75 6F 63 63 61 . P.AAF: tt peccount\ 
444 Td 028 P.AAE: .LONG 7 
0 990000" (0 ADDRESS P.AAF 
6D 6C 74 61 030 P.AAH: .ASCII \astim\ 
' -BLKB 
00 4 ..« P.AAG: .LONG 
00000: $" D00 «ADDRESS P.AAH 
6D 6C 6F 6 040 P.AAJ: .ASCII \biolm\ 
4 -BLKB 
00 $008 P.AAIL: .LONG 
000000 " eADDRESS P.AAJ 
6D 6C 74 62 00050 P.AAL: .ty \bytlm\ 


LONG 
ADDRESS P.AAL 
00060 P.AAN: .ASCI c 


65 6D 69 74 75 


608 7 : LONG 
, 73 eADDRESS P.AAP 
65 63 69 76 6 7C PAAR: tt \device\ 


20088088 P.AAQ: LONG 
. “ADDRESS P.AAR 
6D 6C 6F 69 64 OO0BC P.AAT: <ASCII \diolm\ 
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91 -BLKB 
808 pp08 nite P.AAS: .LONG 3 3 
000000' 443 -ADDRESS P.AAT : 
79 72 6F 74 63 65 72 69 64 SOR P.AAV: me \directory\ : 
Ht 444 QOA8 P.AAU: .LONG ; 
0000 9" Bea ADDRESS P.AAV : 
6D 6C 71 6E 6 OOBO P.AAX: .ASCII \enqlm\ : 
008 -BLKB 
00000005 00088 P.AAW: .LONG ; 
00000090' BRe ADDRESS P.AAX : 
6D 6C 6C 69 66 be P.AAZ: .ASCII fillm\ : 
00C -BLKB 
00000005 O00C8 P.AAY: .LONG : 
00000000" O00CC ADDRESS P.AAZ 3 
73 67 61 6C 66 QO00D0 P.ABB: .ASCI] \flags\ : 
00005 -BLKB 3 
00000005 000D8 P.ABA: .LONG 5 : 
00900000" 000DC ADDRESS P.ABB 3 
64 6D 63 69 67 $C OQOOEO P.ABD: .ASCII \lgicmd\ : 
O00E6 -—BLKB 2 
00000006 OO0E8 P.ABC: .LONG 6 : 
00000000" OOOEC -ADDRESS P.ABD r 
73 62 6F 6A 78 61 6D OOOFO P.ABF: .ASCII \maxjobs\ : 
000F7 -BLKB 1 
00000007 OOOF8 P.ABE: .LONG 7 ; 
00000000" OOOFC -ADDRESS P.ABF : 
72 65 6€ 77 6F 00100 P.ABH: .ASCII \owner\ : 
00105 -BLKB 3 
00000005 00108 P.ABG: .LONG 5 F 
00990099" Bp 198 ADDRESS P.ABH z 
64 72 6F 77 73 73 61 0 00110 P.ABJ: .ASCII \password\ 3 
00000008 00118 P.ABI: .LONG ; 
sae ta * 0011C ADDRESS P.ABJ : 
6D 6C 74 79 6 70 00120 P.ABL: .ASCII \pbytlm\ : 
: 0126 -BLKB 2 
00000006 00128 P.ABK: .LONG 6 5 
woyyouss” 012C -ADDRESS P.ABL 5 
73 67 #61 6 0 01350 P.ABN: .ASCII \pflags\ : 
3 -—BLKB 2 
0000000 138 P.ABM: .LONG 6 3 
popguuy $I C -ADDRESS P.ABN ; 
61 74 6F 75 71 6C 66 6 re P. ABP: rt} \pgflquota\ 3 
00000009 136 P.ABO: .LONG 3 
00000 8 1 -ADDRESS P.ABP J 
74 63 69 72 74 73 65 72 F 154 P.ABR: .ASCII \p_restrict\ : 
Bias -BLKB 
80000004 160 P.ABQ: .LONG 0 3 
9900 * 00164 -ADDRESS P.ABR : 
6D 6C 63 168 P.ABT: .ASCII \preim\ : 
190 BLKB 
68 170 P.ABS: .iLONG 3 
* 00176 ADDRESS P. ABT ; 
79 74 69 72 6F 69 4 ote 1 \priority\ 3 
890 8 ' SiBe ee TADDRESS P. ABV 
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ACK: 
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PACK: 
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-ADDRESS P.AC 
ASCII 
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- LONG 
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ASCII 
-BLKB 
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\privileges\ 
S P.ABX 
\sfiags\ 
2 

P.ABZ 
SCI] \s restrict\ 


S P.ACB 
\shrfillim\ 


oh 

ADDRESS P.ACD 
«ASCII \taqelm\ 
.BLKB 


- LONG 

sADDRESS P.ACF 
«ASCII = \uic\ 
-BLKB 1 


H 
\wsdefault\ 


LONG 
[ADDRESS P.ACJ 
“ASCII 


~ LON 

«ADDRESS P.ACL 
«ASCII \wsquota\ 
BLKB 1 


\wsextent\ 


-LONG 7 

-ADDRESS P.ACN 
ASCII \display\ 
-BLKB 1 

-LONG 7 

«ADDRESS P.ACP 
ASCII \primedays\ 
-BLKB 

- LONG 

«ADDRESS P.ACR 
eASCII \maxacctjobs\ 
-BLKB 1 

-LONG 11 

ADDRESS P.ACT 
ASCII \maxdetach\ 
-BLKB 


P.ACV 
\clitables\ 


LONG 

-ADDRESS P.ACX 
«ASCII \jtquota\ 
-BLKB 1 

-LONG 7 
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«ADDRESS P.ACZ 
eASCII \access\ 
-BLKB 


- LONG 
«ADDRESS P.ADB 
a 


\batch\ 
KB } 

LONG 
ADDRESS P.ADD 
ASCII \defprivileges\ 
BLKB 3 
LONG 13 
-ADDRESS P.ADF 
ASCII \dialup\ 
-BLKB 2 
eLONG 6 
»ADDRESS P.ADH 
eASCII \expiration\ 
-BLKB 2 
-LONG 10 
«ADDRESS P.ADJ 
eASCII \interactive\ 
-BLKB 1 
«LONG 11 
ADDRESS P.ADL 
eASCII \local\ 
-BLKB ; 
~«LONS 
«ADDRESS P.ADN 
eASCII \network\ 
-BLKB 1 
-LONG 7 
«ADDRESS P.ADP 


-ASCI] \pwdlifetime\ 
-BLKB 1 

eLONG 11 

«ADDRESS P.ADR 

«ASCII = \pwdminimum\ 
-BLKB 

LONG 0 
«ADDRESS P.ADT 

rt \quepe tor tty\ 


“LONG 11 
“ADDRESS P.ADV 


-ASCII \remote\ 

-BLKB 2 

LO 6 

eADDRESS P.ADX 

eASCI] <7>\DISCTLY\ 

eASCII <6>\DEFCLI\<0> 
eASCII <7>\LOCKPWD\ 

«ASCII <7>\CAPTIVE\ 

eASCI1] <7>\DISUSER\ 

ASCII = <10>\DISWELCOME\<0> 
eASCII <10>\DISNEWMAIL\<0> 
ASCII <7>\DISMAIL\ 
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Jan-1985 1 21 AX-11 Bi is -32 v4.0-7 
b-san-19 4 15 af] UAF. BUGSRE) UAF PARSE. 533; 
B4 P.AEG: .ASCII DS ae BS ta 
BC P.AEH: .ASCII pi pla 
; P.AEI: .ASCII 12>\Pwo2 EE XPIRED\<0><0><0> 
5 P.AEJ: .ASCII <5>\AUDIT\<0><0> 
EO P.AEK: .ASCII <9>\DISREPORT\<0><0> 
H P.AEL: .ASCII <12>\D1 SRECONNECT\<0><0><0> 
a P.AEM: .ASCII <9>\DISDIALUP\<0><0> 
4 P.AEN: .ASCII <10>\DISNETWORK\<0> 
414 P.AEO: .ASCII < paeaL ace 
oi¢ P.AEP: .ASCII <7>\TUESDAY\ 
424 P.AEQ: .ASCII £9>\UEDNESDAY\<0><0> 
04350 P.AER: .ASCII pb 1 tm 
O043C P.AES: .ASCII <6>\FRIDA 
0444 P.AET: .ASCII < >\ SATURDAY\<O><O><0> 
Boag P.AEU: .ASCII <6>\SUNDAY\< 
pee P.AEV: .ASCII] \C12 456789ABCDEF\ 
00468 P.AEX: .ASCII \NO 
Bpeee -BLKB 2 
046C P.AEW: .LONG é 
00470 eADDRESS P.AEX 
Opegs P.AEZ: .ASCII \GENERATE_PASSWOxD\<0><0><0> 
eb P.AEY: .L LONG em 73? 
048C ADDRES 
bg P.AFB: .ASCII \GENERATE PASSWORD \<9><0><0> 
Boeke P.AFA: .LONG sat; Sd 
04A8 «ADDRESS P 
Rene P.AFD: .ASCII \GENERATE _PASSWORD\<0><0><0> 
04CO P.AFC: .LONG 17694737 
4C4 -ADDRESS P.AFD 
O4C8 P.AFF: .ASCII NOUR S PEIRED\<O><0> 
0404 FE: .LONG 1769473 
0408 -ADDRESS P.AFF 
oc AFG: .ASCII \NONE\ 
-PSECT SOWNS,NOEXE,2 


00000 FLAG_TABLE: 
-LONG 28 
+ADDRESS P.ADY 
-ADDRESS P ADZ 
«LONG 7 
«ADDRESS P.AEA 


0008 


el 
- ADDRESS 


P.AEB 


w ~ 


- ADDRESS P.AEC 
«ADDRESS P.AED 


“ADDRESS P.AEE 


uw SS 


roe 


b-Jan-1985 10:30:13 Ay-11 Bi ieee 32 V4.0-74 Page a UAT 


UAF PARSE 
v04-001 -Oct-1 U..F .BUGSRC JUAF PARSE .B32;1 


update_record - modify all specified fields 


8 a «LONG 6 : 
' ¢ “ADDRESS ©. AEF : 
me ire “ADD#ESS F.AEG 
. ~@ re. é 
48 -LONS 8 : 
' 4c “ADDRESS. AEH : 
0' 3 [ADDRESS ¢. at] : 
A 8 ‘ 10 : 
0" He “ADDRESS P.AEJ : 
| [LONG 11 : 
. oes “ADDRESS. P .AEK : 
' “ADDRESS B.AEL : 
0000 dD 0070 : 1 : 
00 074 OPFLAG_TABLE: 5 
0000000' 00078 SADDRESS P.AEM : 
0000 01 07¢ “LONG 1 : 
0000000' 00080 [ADDRESS P.AEN : 
00000002 0084 “LONG 2 : 
0000000E 00088 POFLAG_TABLE et 
00000000' o008c¢ “ADDRESS P.AEO : 
0000000 00090 “LONG 0 : 
0000000' 90094 “ADDRESS P.AEP : 
0000001 00098 : 1 ; 
000000 009¢ “ADDRESS P.AEQ : 
0000002 000A0 : 2 ; 
0000000" O00A4 “ADDRESS P.AER : 
9000 O0A8 : 3 : 
000 * OO0AC “ADDRESS P.AES : 
99000 0080 ; 4 : 
0 * 00084 “ADDRESS P.AET : 
9000000 B8 “LONG 5 : 
0000000' 908 “ADDRESS P.AEU : 
00000006 ra} "LONG 6 : 
00C4 STATUS: :BLKB 4 
00¢8 CLI_STATUS: A 
00000002 00000008 O00CC TPARSE_BLOCK: - 
90004 -BLKB rT} 
OOFO CONVERTED UIC: ; 
OOF4 ADDRESS:.BLKB 4 
OOF8 LEFT_BIT: 
.BLKB 4 
OOOFC RIGHT_BIT: 
-BLKB 4 
00100 PRIMARY ACCESS: ‘ 


thee 
GOB9Q000 BR1RE PRTRART::LOne 9 


AX-11 Bliss-32 V 7 


5 
UAF PARSE B-san-t9 5 17:30:1 4.0-74 
VOe-O08 update_record - modify all specified fields ety i 15:09:18 (Oar -BUGSRE UAFPARSE 203551 


yt) Sheil el 


SD“PRIORITY= 
SD“PRIVILEGES= 
=SFLAGS= 


REESEEEESEEES 


><EeCcuwoo 


ROS 
YSSDASSGN 


update_record = modify all specified fields 


000000006 


900000006 


0370 
69 
10 


69 
00000000G_ 8F 


MOVIMOOOOSO-OS F FPOOOOOCSOO 


OAS --*-AVUOOMOCODAINVOOCOSCSOCO 


71984 15:09:10 


»PSECT 


AX-11 Bliss-32 Vv 
UAF .BUGSRC UAFPAR 


‘fel GET_VACUE 
Hy joocyy TIME 


Uae wt pore, onl 


Ouse 
RVNOTEND. UAF $_PRVNOTUNQ 
“PuDSYTAX — AF $"PWONCH 


F$_UITERR 
FSVALTOOBIG,” URS ZCONFLICT 


—— OOH 
AAP DOM 


UNRKEY, CLI wtBK KEYW 
“IVKE YW, iat =NEGATED 
BSENT.. PRVS NO OTN 


 wWoorwnccccccccce 
> > > 


> ee 
"<= o 


mite NOTHORTIe ACOMMANDS 
CALL_ COUN 
, march TOKENLEN 


°95 
Ae 


A 
SD_PASSWORD, R6 
STATUS 


ere 


UAFSGO.SYSUAFF 
CALL_COUNT 
AUTHORIZE_ COMMANDS 
CMDLIN 


Ll 
#2, CLISDCL_PARSE 
P.AEY 

ai. + SLISPRESENT 


ee ee ee ee ee ee en en ee ee ee ee ee ee ee oe ee oe oe ee ee oe ee oe oe ee ee g 


RO acLi$ RABSENT 


UAF PARSE 
v04-001 


update_record = modify 


000000006 


000000006 
03 


00000000v 
00000000v 


01 


04 
000000006 


00000000v 


04 
000000006 
02 


00000000v 


04 
000000006 


5 
b-1 an-1 
all specified fields -Oct-1 


: oe 67 
00000000G 8F oDD 69 
00 1 ‘o of 
7 
038C 6 OF 78 2%: 
9 1 4 4s 
E 0 € - 
6 DD 
9 1 F 
F 8 7 
A8 3$: 
03A8 6 SF 
69 1 FB 098 
7 0 €E9 00098 
00 0 FB 4 
00 8 Fe OOAS 4$: 
6A ; OOAC 
AA 02 BA Boat 
67 01 4 083 
03 00000000G 00 Boas 5$ 
08BA 31 0008D 
0180 C6 9F 000CO 6$ 
69 9 FB 000C4 
A? 0 pdO 000C7 
09 50 €8 000CB 
8F 50 01 00 cf 
18 i 00D 
68 01 88 00007 7$: 
50 DD OOODA 
1F DD Q00DC 
0180 £6 9F 0000 
00 9 FB OOOE 
5C 0 €E9 O000E 
67 01 DO OOOEC 
O1EO C6 SF OOOEF 8S 
69 1 FB QOOF3 
A7 0 00 000F6 
09 0O€ FA 
8F Di OOOFD 
19 1 
A8 98 8 9$: 
0 0D 001 
1 D 0010C 
01€0 F 
BN 
Fe 1 pO 1C 
0190 6 F 1F 118: 
69 F 3 
A7 1) 6 
? BY 00190 
13 
68 8 12$: 
ND 
dD 


9b 15:08:10 


UAF .BUGSRC JUAF PARSE .B 
2s 

sUAFS ZCONFLICT 

fe LIB$SIGNAL 


vit ISPRESENT 
RO. $s 


AX-11 Bliss-32 eth gn 


#1, CLISPRESENT 
RO, #CLIS_ABSENT 


a8 -YAFSGQ_SYSUAFF +3 
i, CLISPRESENT 

#0. UAFSGENERATE 

#0, & TPASSWORD 

} * RECBUF +469 
UAFSGL_CTLMSK, 6$ 
107$ 

SD_ACCESS 

#17 CLISPRESENT 
RO, 1_STATUS 
RO. #CLIS_NEGATED 


#1, UAFSGO_SYSUAFF 


#31 

SD _ACCESS 

#3, GETACCESS 
#1, STATUS 

SD" INTERACTIVE 
#1; CLISPRESENT 
RO. CLI_STATUS 


RO, #CLIS_NEGATED 
a, UAF $GQ_SYSUAFF +2 


’ > GETACCESS 
#1. STATUS 

“BATCH 
#1> CLISPRESENT 
o STATUS 
RO, #CLIS_NEGATED 
a0 UAF $GQ_SYSUAFF 
# 


#28 
ae 


rao 3 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Be Oe oe Pete Se Se Ge Se Se Ge Ge Se Fe Ge Be Be Se Se Be Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se 


0657 


0660 


< 
g 


a ee ee ee ee ee ed ed ed wd nd td od od od od 


UAF PARSE 
V04-001 


update_record = modify 


00000000v 


04 
000000006 
01 


00000000v 


04 
000000006 
03 


00000000v 


04 
000000006 
02 


00000000v 


04 
000000006 
04 


00000000v 


all specified fields 


i 


ad 


0168 : 
0188 63 
01 

0200 of 
: 

19 

5 

01 

0200 £6 
3 

01 

O1F0 £6 
: 

50 

50 

t 

‘ 

04 

O1FO £6 
5 

01 

024C : 
80 
i 

024C 
1 

FFIO) §8=—« C6 


oF 


S@—-9OM9 "OOM OCT @-omMmon"oumn 


OO ON —-WO "O08 00 Or" Bog "00w 


oooo 


5 
b-san-19 
“Oct-19 


13$: 


— 
eo 
ad 


15$: 


16$: 
17$: 


18$: 


OOCCOCOSOCOOCOSCOCOOOSOOOOOOOOOOOOO 


™~m 
oO 
Pr 


—~ 
—_ 
ee 


~m % 
wm 
owe# 
id ad 


COOOCCOCSOSOCSOOCoCoooooooo 


PDE DIDI i i ec ee ee ce eee cel cel cl cl cel ce cl cl cel el cel cl el el cel cel cel cl cl cl lb cl cel celle cel ll lo 


AS DUNT OD OUI DUI oo OS Dram OMIM O w Orein Oumomeaen oo 
os 
y 


25$: 


— 
~™ 
o 
tad 


Bc 15:01:10 LOAF aueSne Soar pAnse.039, 1 


PUSHAB 
ALLS 


a3; TACCESS 
#i., STATUS 
D_DIALUP 

#1; CLISPRESENT 
R _STATUS 


i BATCH 


RO, 
RO, #CLIS_NEGATED 
#8, UAFSGO_SYSUAFF +1 


he tA 
#3, GETACCESS 


SD. NETWORK 
#17 CLISPRESENT 
RO. STATUS 


R i #CLIS_NEGATED 
a6e UAF $GQ_SYSUAF F +3 


sa es 
#3, GETACCESS 


L 
17 CLISPRESENT 
» CLI_STATUS 


s 
8 
R 
R ; #CLIS_NEGATED 
52, UAF $GQ_SYSUAFF +2 
a4 

SD _LOCAL 

a3 TACCESS 

#1. STATUS 

SD_REMOTE 

#17 CLISPRESENT 

RO, {STATUS 


RO, #CLIS_NEGATED 
#128, UAF $GQ_SYSUAFF +4 


#3, EIACCESS 
$ 


#1. STATUS 
SD“ ACCOUNT 


#16 
et 


ree 


$8 


k 5 
UAF PARSE -Jan-1985 17:30:1 AX-11 Bliss-32 V4.0-74 Pa 5 
v04-01 update_record = modify all specified fields ety 15:89i10 {UAF -BUGSRESUAF PARSE 0S 31 = 3} 
9 1 F 13 CALLS #1, CLISPRESENT ; 
23 g ‘3 18 BLEC. Er «aRO. Sh : 
1 BISB2 #2, UAFSGO_SYSUAFF + 0765 
8 pp 1¢ PUSHL + 0766 
FF10 F 0001 PUSHAB $D_ACCOUNT ; 
000000006 00 FB CALLS #27 CLISGET_VALUE ; 
FE6O CA SF PUSHAB RECBUF+52 : 
00000000v Q ; FB 1 CALLS #3, GETSTRING : 
E 273: BLBC “ : 
f 1 0 MOVL #1. STATUS : 077 
FF20 (6 OF 28$:  PUSHAB SD‘AS7LM : 077 
69 o1 Fe 4 CALLS #17 CLISPRESENT : 
: 0 ; 43 BLBC ; : 
6 04 8 0024 BISB2 #4. UAFS$GO_SYSUAFF + 077 
B 0D 00048 PUSHL Rif : 077 
FF20 ¢ F 0024D PUSHAB SD_ASTLM : 
000000006 00 2 FB 1 CALLS #2; CLISGET_VALUE ; 
10 oD 8 PUSHL #16 : 0778 
40 AA OF A PUSHAB RECBUF +532 : 
00000000v 00 02 F 5p CALLS #2, GETVAL : 
55 E 64 298: BLBC RO. 338 : 
67 01 00 00267 MOVL #1. STATUS : 0780 
FF30 C6 SF 0026A 308:  PUSHAB SD’BIOLM : 0783 
69 o1 FB 6 CALLS #17 CLISPRESENT : 
22 0 1 BLBC : 
68 10 88 oc74 BISB2 #16, UAFSGO_SYSUAFF + 0786 
SB DP 00277 PUSHL R11 : 0787 
FF30 (C6 %9F 00279 PUSHAB SD_BIOLM ; 
000000006 00 02 FB 0027D CALLS #2 CLISGET_VALUE : 
10 0D PUSHL #16 : 0788 
3A AA OOF PUSHAB RECBUF +526 : 
00000000v 06 02 F CALLS #2. GETVAL : 
59 E 30 31$: BLBC RO, 35$ : 
67 01 00 0029 MOVL #1. STATUS : 0790 
FF40 C6 9F 00296 328:  PUSHAB SD‘BYTLM : 0793 
69 i FB 9A CALLS #1; CLISPRESENT : 
68 0 88 BIsh2 # ¢. UAF $GQ_SYSUAFF > 0796 
B DD 002A PUSHL RI : 0797 
FF4O C6 OF OO2A 5 SD_BYTLM F 
000000006 00 FB 00209 CALLS #27 CLISGET_VALUE : 
p PUSHL #30 : 0798 
00000000 ='s re B CALS. ap. GEIVAL ; 
Vv P 3 
99 9 é BC 338: BLBC RO, is : 
67 01 DO 002BF MOVL #1. STATUS > 0800 
FF4C F O0¢C2 34$:  PUSHAB SD‘CLI > 0803 
69 } Fg C CALLS a. SPRESENT 
és 40 «BF is C BISB2 #64, UAFS$GQ_SYSUAFF > 0806 
B DD PUSHL R11 : 0807 
FF4C F 0000 PUSHAB SD_CLI : 
000000006 00 FB CALLS #27 CLISGET_VALUE : 
DD 00200 PUSHL @ > 0808 
0 0D O020F PUSHL #32 : 


| 
UAF PARSE -Jjan-1985 17:30:1 AX-11 Bliss-32 v4.0-74 Pp 
v04-001 update_record = modify all specified fields b-sanetg 15:89:18 {UAF .BuGsRe UAF PARSE .832;1 eee Ry 
FF6O «6CA OOF 002E PUSHAB RECBUF +276 : 
00000000v 90 F Ei CALLS #3, GETSTRING : 
é E EC 35$:  @LBC ; 608 : 
bs EF CLR R + 0811 
FF6é0 & ; Fi TST R four +308 5 
1 3 BEQL 3 3 
1) F INCL R : 
000000006 00 01 05 F F9 36S: INSV. RO, #5, #1, UAFSGL_CTLMSK : 
000000006 09 6 BISB2 #8, UAFSGL_CTLMSK F 081g 
4 1 p MOVL #1. STATUS : 081 
0160 (6 OF 37$:  PUSHAB SD_CLITABLES + 0816 
9 1 44 1 CALLS “i, SPRESENT $ 
D 0 1 BLBC ; 
$8 80 BF 88 00316 BISB2 #128, UAFSGO_SYSUAFF : 0819 
B DD OO31A PUSHL R11 ; 0820 
0160 $ F 0031C PUSHAB SD_CLITABLES : 
000000006 00 FB 9 CALLS ae CLISGET_VALUE F 
1 oD PUSHL gs 3; 0821 
0 oD PUSHL #32 F 
FF60 CA OF SHAB RECBUF +308 : 
00000000 90 93 Fe F CALLS #3, GETSTRING : 
6 0 38s: BLBC r 
000000006 00 10 9 BIS82 #16, UAFSGL_CTLMSK + 0823 
S 01 »D 4 MOVL #1, STATUS + 0824 
FFSC C6 9F 00343 39%: PUSHAB SD_CPUTIME : 0827 
69 01 FB CALLS #15 CLISPRESENT ; 
1 50 4A BLBC . ; 
01 A 2 a 40 81S82 #1 UAF $GQ_SYSUAFF +1 ; 0830 
B DD 00351 PUSHL R11 : 0831 
FFSC §6C6 OOF 33 PUSHAB SD_CPUTIME : 
000000006 | 02 FB 0035 CALLS #2. CLISGET_VALUE ; 
00000000v 00 90 F 5 CALLS » GETCPUTIM + 0832 
4 0 € 40$: 16¢ —SséaRO. ; 
67 01 00 00368 MOVL #1. STATUS : 08 
O1AB «C6 OF 41$:  PUSHAB SD_DEFPRIVILEGES + 0837 
69 gi FB CALLS #17, CLISPRESENT ; 
18 9 LBC —séaRO, 4 ; 
01 «a8 0 BISB2 #2, UAF$GQ_SYSUAFF +1 + 0840 
D0 «AA OF PUSHAB RECBUF +420 > 0841 
O1A8 = C6sCOF PUSHAB SD_DEFPRIVILEGES ; 
00000000v 00 g F CALLS #27, GETPRIV ; 
& E BLBC ‘ 3 
67 01 00 MOVL #1. STATUS + 0843 
FFOC 8 F 42$:  PUSHAB SD _DEVICE > 0846 
69 FB CALLS #17 CLISPRESENT ; 
1 0 BLBC 0, ; 
01 A 04 8 BISB2 #4. UAFSGQ_SYSUAFF +1 > 0849 
B 0D PUSHL R1f : 0850 
FFOC «6 C6 OF PUSHAB SD_DEVICE ; 
000000006 FB CALLS #27 CLISGET_VALUE : 
00000000v 7 CALLS 40, GE TOEVICE ; 0851 
¢ £ AF 43% BLBC 3. «RO. ; 
é 01 DO MOVL #1. STATUS > 0853 
FF7C «66 OOF 44$:  PUSHAB SD-DIOLM : 0856 
$9 1 FB CALLS a: ¢ JSPRESENT ; 
01 ‘a Hi #4 BISB2 até. UAF $GQ_SYSUAFF +1 > 0859 
| 


UAF PARSE B-sen-1985 10:30:] AX-11 Bliss-32 V4.0 Page ?? 


v04-001 update_record = modify all specified fields -Oct-1 UAF .BUGSRC JUAF PARSE. “043, 1 (3) 
5 po C PUSHL R : 0860 
FF7C f F 003C¢ _DIOLM F 
000000006 00 FB ¢ CALLS #2; CLISGET_VALUE 0 eo 
3 OA OF oe PUSHAB RECBUF +528 : 
00900000v 00 08 f 05 poe CALLS #2, GETVAL : 
67 01 DO 003DF " MOVL #1 STATUS > 0863 
90 Ab 9F OO3E2 468:  PUSHAB SD‘DIRECTORY : 0866 
69 1 Fe E CALLS #1; CLISPRESENT ; 
01 AB 8 8 OO3EB BISB2 #32, UAFS$GO_SYSUAFF+1 : 0869 
B DD OO3EF PUSHL : 0870 
90 Ae OF O03F1 PUSHAB sp DI RECTOR : 
000000006 00 FE O03F4 CALLS a GET "VALUE F 
00000000v a0 p : 0608 +e CALLS GETDIRECTORY ; 0871 
67 01 00 495 " wOVL #1 STATUS + 0873 
AO Ab OF oe 48%: ~ PUSHAB SD_ENQL : 0876 
4 EP GIREE nese , 
01 «AB 40 ' : at 1882 #64, var $60 _SYSUAFF +1 0879 
AO a6 OF 418 PUSHAB SD_ENQ : 
000000006 00 ° FB 0418 CALLS He, CLISGET _VALUE = 
42 AA OF 00424 PUSHAB RECBUF +534 ; 
en OF ES Shes: cos: geet: noe Stee 
67 01 bd C431 "MOVE sw. STATUS + 0883 
O1CC C6 9F 00434 50$:  PUSHAB SD’ EXPIRATION > 0886 
69 01 FB 904 CALLS #17 CLISPRESENT ; 
04 A? 50 D 04 VL R 0, CLI prAlys ; 
000000006 8F 30 D1 45F cmPL #CLT$_NEGATED ; 0887 
01 AB 80 gt as rt BISB2 #128, UAFSGQ_SYSUAFF+1 > 0890 
08 00 6E . 00 C O440 mMOVCS #0, (SP), #07 #8, RECBUF +364 ; 0891 
zA 11 BRB : 089 
2A 0 £9 6 51$:  BLBC RO, 538 : 089 
01 «AB 80 . 8 43 8182 #168, UAF $GQ_SYSUAFF +1 ; 0898 
000000006 00 vn §8 oF rh PUSHAB  § 3 ae GET VALUE ; 
98 AA oF 468 PUSHAB R ftp sgt ; 090° 
000000006 00 s r 1 CALLS a. LIBSCVT_TIME 
5 7A BLBS ; : 
BRY 9 3 
0 538: MOVL #1, STATUS : 0906 
F $:  PUSHAB SD_FILLM : 0909 
CALLS #17 CLISPRESENT : 
; BLBC =. «RO. ; 
BISB2 #1. UAFSGO_SYSUAFF +2 : 991 
D PUSHL R1f ; 091 


L 
92 PUSHAB SD_FILLM 


UAF PARSE 
v04~-001 


update_record - modify 


000000006 


00000000v 


06 
00000000v 


02 
000000006 


00000000v 


02 


000000006 


00000000v 


02 
00000000u 


00000000v 


03 


000000006 


B-Jan-1965 Weatsi8 Yoke ubshesade eKRse-2$5.. Poe 


<c 
<2 


all specified fields 


00 02 FB 00495 CALLS At CLISGET_VALUE : :] 

D 0049¢ PUSHL + 0914 31 

44 AA 9F 004 f PUSHAB O16 e055 : .] 

90 : FB O0GA CALLS 1 , GETVAL ; 31 

4 E9 004A8 54$:  BLBC : : 1 

67 1 00 004 MOVL + STATUS + 0916 31 

a) AG F OO4AE 55$ PUSHAB : 0919 a] 

69 Q FB 48 CALLS ist t[Sresenr : :] 

11 . 4B4 BLBC —-—s&RO, : 31 

Ag 8 00487 BISB2 #2. 5 Hae gSYSuaFFe2 : 0922 31 

90 FB 48 CALLS 40, Say : 09 1 

A E9 004¢ BLBC ~—Es«&RO. : 31 

67 1 Bo 4C MOVL = #i, STA > 0925 | 

0170 C6 9F 004CB 56$: PUSHAB SD‘JT : 0928 71 

69 1 Fe 4CC CALLS we L SPRESENT : 31 

23 0 4CF LBC : 31 

AB 2 8 00402 BIS82 # SI SYSUAFF +2 + 0931 3 1 

B OD 0406 PUSHL + 0932 31 

0170 (C6 9F 0040 PUSHAB SD_JTQUOTA : 71 

00 02 FB O4n¢ CALLS @ Tr yecer _VALUE : : 1 

20 DD 004E PUSHL + 0933 71 

64 AA 9F O04E5 PUSHAB RECBUF +568 : : 1 

00 92 FB 004E8 CALLS #2, GETVAL : 71 

59 0 €9 O04EF BLBC : 31 

67 01 00 O4Fe MOVL = # STATUS + 9935 71 

DO Ad 9F O04F5 57$: —— PUSHAB sp =LG1CHD : 0938 31 

69 01 FB 004F8 CALLS ISPRESENT : : 1 

27 50 O4FB BLBC : 71 

a8 10 88 are BISB2 me UAF $GQ_SYSUAFF +2 > 0941 31 

5B DD 0050 PUSHL R11 + 0942 71 

DO Ab OF 00504 PUSHAB $0_LG1 CMD : : 1 

00 02 FB 0507 CALLS ie CLISGET_VALUE : : 1 

oi DD 005 ; PUSHL # > 0943 71 

7E 40 8F 9A 0051 MOVZBL #6 64, Pasty. : 31 

FFOO }=6CA OF 00514 PUSHAB RECBy 212 : 31 

00 03 FB 00518 CALLS @ uF TSTRING : 71 

56 0 €9 UCSIF 58$: BLBC 0, 3 3 1 

67 01 9 09 2 MOVL #1. STATUS : 0945 :1 

EO Ab OF 59$:  PUSHAB SD _MAXIOBS > 0948 31 

69 gi FB 528 CALLS CLISPRESENT : 31 

23 0 t 8 BLBC RO: ; 71 

AB 80 BF 88 BISB2 nie UAF $GQ_SYSUAFF +2 : 0951 21 

B DD PUSHL 1 : 0952 :1 

EO Ab OF 2 PUSHAB sp. xJ9Bs : 71 

00 02 FB CALLS met GET_VALUE ; 31 

1 pp 9 F SHL 4 j : 0953 31 

32. AA OOF 00541 PUSHAB RECBUF +518 ; 31 

90 08 FB 0544 CALLS #2, GETVAL : 31 

8 E 48 60$: BLBC RO. 64$ ; 31 

6 01 BO af MOVL #1, STATU : 0955 :1 

0138 (6 OF 61$:  PUSHAB SD_MAXACCTJOBS : 095 31 

69 1 FB 3 CALLS #17 Cl ISPRESENT ; : 1 

23 0 LBC RO, 6 : 21 
AR gt 8 8 BISB2 #1. UAFSGQ_SYSUAFF +3 : 0961 ; 

8 bb F PUSHL Rit : 0962 : 1 

0138 c6 F 00561 PUSHAB SDMA AcT OBS : 31 

00 FB 00565 CALLS @ ae $GET _VALUE ; 31 


UAF PARSE 1 AX-11 Bliss-32 v4.0-74 p 9 
v04-001 update_record = modify all specified fields : 1 UAF .BUGSRCIUAF PARSE .B3 31 tt a v04 
10 DD 0056C PUSHL #16 3 0963 31 
34 AA BF O5¢e PUSHAB RECBUF +520 : 31 
00000000v 00 98 FB 005 CALLS #3, GETVAL : :] 
59 E9 00578 62$: BLBC , 6 : : 
67 01 D0 0378 MOVL #1, STATUS : 0965 31 
014C (6 OF 7E 63$ PUSHAB SD _MAXDETACH : 0968 31 
69 gi FB 098 CALLS #17 CLISPRESENT : 31 
24 0 E 09 LBC R : 31 
02 AB 40 8F 88 00588 BISB2 #64, UAF$GQ_SYSUAFF+2 : 0971 31 
5B OD 0980 PUSHL : 0972 31 
014C C6 9F 0058F PUSHAB SD _MAXDETACH : | 
000000006 00 02 FB 0993 CALLS He CLISGET_VAL JE : :] 
10 DD 0059A PUSHL #16 : 0973 31 
36 «AA OOF 0059C PUSHAB RECBUF +522 : ; 1 
00000000v 00 98 FB 0059F CALLS #2, GETVAL : 31 
56 £9 00546 64$: | BLBC RO, : 51 
67 01 DO 005A MOVL #1, STATUS : 0975 31 
FO Ab OOF O03AC 65$: PUSHAB SD_OWNER : 0978 31 
69 01 FB OOSAF CALLS #15 CLISPRESENT : 3:1 
25 50 9 00582 BLBC RO, : 31 
03 «AB 04 88 00585 BISB2 #4, UAFSGO_SYSUAFF +3 7 0981 : 1 
5B DD 00589 PUSHL R11 + 0982 :1 
FO Ad 9F 00588 PUSHAB SD_OWNER : 31 
000000006 00 02 FB 0098E CALLS #2, CLISGET_VALUE ; 31 
01 DD 005¢ PUSHL 1 : 0983 71 
20 Dd 0037 PUSHL #32 : : 1 
FE80 CA 9F 005C9 PUSHAB RECBUF +84 : : 3 
00000000v 00 03 FB 005CD CALLS #3, GETSTRING ; 31 
72 50 £9 00504 66$: BLBC RO, 71$ : 71 
67 01 D0 00507 MOVL #1, STATUS : 0985 31 
10 A6 9F OO5DA 678: PUSHAB SD_PBYTLM : 0988 71 
69 01 FB BR 208 CALLS #1, CLISPRESENT 3 : % 
22 50 E9 05€ BLBC : 31 
03 AS 10 88 OSE BISB2 #16, UAFSGQ_SYSUAFF +3 ; 0991 31 
5B DD 005E PUSHL R11 : 0992 1 
10 Ad 9F 005E9 PUSHAB SD_PBYTLM : 
000000006 00 98 FB 005E CALLS ae CLISGET_VALUE 3 
DD 205F PUSHL #32 > 0993 
60 AA 9F 005 PUSHAB RECBUF +564 : 
00000000v 00 02 FB 0038 CALLS #2, g TVAL ; 
6A ES OOSFF 68$: BLBC RO, 73$ : 
67 01 v0 0608 MOVL #1, STATUS : 0995 
34 Ab SF 00605 69S: PUSHAB SD_PGFLQUOTA : 0998 
9 1 FB 608 CALLS #17 CLISPRESENT ; 
3 0 LBC b 3 
03 AB 80 BF 88 006 BISB2 #108, UAFSGO_SYSUAFF +3 > 1001 
B DD 0061 PUSHL R11 : 1002 
34 Ad 9F 0061 PUSHAR SD_PGFLQUOTA ; 
000000006 00 02 FB 00618 CALLS #27 CLISGET_VALUE ; 
1 D 0061F PUSHL @ : 1003 
54 AA 9F 00621 PUSHAB ReCBUF +552 ; 
00000000v 00 98 FB 4 CALLS #2, GE IVAL : 
3 £ 8 BLBC RO, 76$ : 
5 01 0 OOF MOVL #i, STATUS > 1005 
48 Ab OF 06 1 708: PUSHAB SD_P_RESTRICT : 1008 
69 1 FB 6 CALLS #17 CL] SPRESENT : 
15 0 €9 00637 BLBC RO, ; 
| 


—————_———_---- ——_—_, 


6 
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03 AB 40 8F 88 634 BISB2 #64, UAF$GO_SYSUAFF+3 : 

48 AG SF 0063F PUSHAB SD_P_RESTRICT : 

00000000v 00 ee b4¢ CALLS #17 GETRESTRICT : 
60 0 £9 00649 718: BLBC RO. 76$ : 

1 pO 0064¢ MOVL #1, STATUS : 

QOAO (6 9F O064F 72%:  PUSHAB SD’S_RESTRICT : 

69 1 FB 0653 CALLS #17 CLISPRESENT : 

19 0 : 0696 BLBC = RO, 74 : 

0S AB 0¢ 8 65 BISB2 #2. UAF$GQ_SYSUAFF+S : 

40 A? 0 3 065D MOVL #1, SECONDARY : 
OOAO (6 9F 00661 PUSHAB SD_S_RESTRICT : 

00000000v 0 gi FB 0665 CALLS #17 GETRESTRICT : 
6 0 £9 0066C 73$:  BLBC RO. : 

é 01 DO 0066F MOVL #1. STATUS : 

20 Ab OF 0672 74$:  PUSHAB SD_PFLAGS : 

69 o1 FB 0067 CALLS #17 CLISPRESENT : 

18 0 ; 0678 L : 

03 As 20 8 0678 BISB2 #32, UAS$GQ_SYSUAFF+3 : 

48 A? 01 DO 0067F VL so #1, PRIMARY : 

20 Ab 9F 00683 PUSHAB S$D_PFLAGS : 

00000000v 09 gi FB 00686 CALLS a; TPF LAGS : 
6 01 DO 00690 MOVL #1. STATUS ; 

008C C6 9F 00693 75$:  PUSHAB SD ‘SFLAGS ; 

69 gi FB 90697 CALLS #17 CLISPRESENT ; 

15 0 & 069A BLEC—._—«aRO, : 

0S As 01 88 0069D BISB2 #1, UAF$GO_SYSUAFF+5 : 
008C C6 9F 006A1 PUSHAB SD_SFLA F 

00000000v 00 gi FB 06A5 CALLS #1, GETPFLAGS ; 
6 0 £9 O06AC 76$: BLBC RO, B2$ : 

é 01 DO O06AF MOVL #1. STATUS ; 

58 AG OOF 0682 77$: PUSHAB SD_PRCLM ; 

69 01 FB 068 CALLS #17 CLISPRESENT : 

22 50 E 0688 BLBC : : 

04 As 01 88 00688 BISB2 #1, UAFSGQ_SYSUAFF +4 : 

5B 0D 006BF PUSHL R11 ; 

58 AG 9F 006C1 PUSHAB SD_PRCLM ; 

000000066 00 08 FB O64 CALLS Her CLISGET_VALUE : 
38 4=6AA OF 006CD PUSHAB RECBUF +524 ; 

00000000v 0 FB 00 CALLS #2, GETVAL F 
6 E9 00607 78$: BLBC RO. ; 

67 01 DO 006DA MOVL #1. STATUS : 

01246 (6 OF 9600 79$:  PUSHAB SD_PRIMEDAYS ; 

69 1 FB 6E1 CALLS #17 CLISPRESENT ; 

11 £4 BLBC —_«aRO, ; 

coooo8iy Se Ete EASE ag: Uetpetnzgtt : 
V " 3 

3 9 F2 80$ BLBC ~—E_—saR”O, ges ; 

6 01 4 : VL fi, 3 

68 Ad OF 006FB 818 PUSHAB SD_PRIORITY ; 

69 1 FB B CALLS #17 CLISPRESENT F 

2 0 ft LBC RO, 3 

06 A 4 &8 0 BISB2 #4. UAFSGQ_SYSUAFF +4 : 

8 bb 3 PUSHL Rif : 

7. Ag F 0 PUSHAB SD PRIORITY ; 

000000006 00 02 FB A CALLS #27 CLISGET_VALUE : 


UAF PARSE 


08 00 


04 00 


08 00 


30 s 
ie 6 
ip 

7C A 

69 
tA 
ce AA 
Po 8 
wt 
Ce 
69 01 
A7 50 
BF 50 
0c 
A& 10 
50 A8& AA 
60 

12 
1A 50 
A8& 10 
50 A8& AA 
60 01 
AOd 01 
ts 02 
67 es 
0214 C6 

69 gf 
A7 0 
BF 50 
0D 

A8& 10 
6E 00 
AO AA 
if 

54 § 
A& 10 
58 

00 0214 £8 
50 04 AB 
60 68 
03C4 C6 
s o¢ 
A0 AA 

67 01 
1E 
AO AA 
8 

00 0 


v04-001 update_record - modify all specified fields 


— 2 2 
DOWOVTOw— 


OoOQQOoooooooooo°ooo 


'SSSFRm>S oo saw 


COOCCOCOCCOCOCOSCOOSOOSOOOO OOOO OOOoOoOOO 


SOL 


DoOooocoocoooo°o°oo 


@paowrtOo OPV VOD" T@O- SOM OF “OF OMMMNOO—-OMONrM—CW"0—-OF ="DWOW"0O0N"0O 


fF 

9 

) 

9 

F 

D 

D 

1 

8 

y 

7 

1 

E 

8 

9 

C 7i 

C 74 

88 00778 

8A 0077C 

) it! 

9F 007 

FB 00787 

DO 0078A 

) bao 

12 0079 

§ th 

0798 
07A0 

11 OO7A2 

f the 
7A7 

3 ths 
7AD 

F 4h 

788 
7BC 
7C1 

1 7¢4 

2 766 
7¢B 

» 7CD 
70 

9 70 

D 70 

FB 007D 


6 


co om 
win 
wow 


5$: 
6$: 


87$: 


88$: 


89$: 


908: 


91$: 


=-Jan-19 
“Oct-19 


5 17:30:1 AX-11 Bliss=-32 v4.0-74 
RR 15:89:18 UAF .BUGSRCIUAF PARSE .B3 31 
PUSHL #8 
PUSHAB RECBUF+516 
CALLS #2, GETVAL 
BLBC —Es«RO; 
VL #1,_ STATUS 
PUSHAB SD‘PRIVILEGES 
CALLS #17 CLISPRESENT 
B.BC Ree 
BISh2 # UAF $60_SYSUAFF +4 
PUSHAB RECBUF +412 
PUSHAB SD_PRIVILEGES 
CALLS ag g TPRIV 
BLES sR 
BRW 1093 
MOVL #1, STATUS 
PUSHAB P.AF 
CALLS #1, CLISPRESENT 
MOVL RO, CLI_STATUS 
CMPL RO, #CLTS_NEGATED 
BNEG «8 7$ 
BISB2 #16, UAFSGQ_SYSUAFF +4 
MOV RECBUF +380, “TIME 
CLRQ = (TIME) 
BRB $ 
BLBC RO, 89S 
BISB2 #16, UAFSGO_SYSUAFF +4 
VAB = RECBUF +380, “TIME 
MNEGL #1, (TIME) 
EGL #1, 4(TIME) 
BISB a3. UAF$GQ_SYSUAFF +2 
BICB2 #2, RECBUFT469 
vl, US 
PUSHAB SD_PWDLIFETIME 
CALLS #17 CLISPRESENT 
MOVL RO. CLI STATUS 
CMPL RO, #CLT$_NEGATED 
BNEQ -90$ 
BISB2 #16, UAFSGQ_SYSUAFF+4 
MOVC #0, (SP), #0, #8, RECBUF +372 
BRB 
BLBC = RO, -95$ 
BISB2 #16, UAFSGQ_SYSUAFF+4 
PUSHL R11 
PUSHAS SD_PWDLIFETIME 
CALLS #27 CLI GET _VALUE 
MOVL  TOKENDSC+ 
CMPCS TOKENDSC, (RO), #0, #4, P.AFG 
BNEQ 91% 
mMOVCS #0, (SP), #0, #8, RECBUF +372 
MOVL #1, STATUS 
BRB 
PUSHAB RECBUF +372 
PUSHL 
CALLS #2, LIBSCVT_DTIME 


rom 


1070 


ae at s~oooOoOoO 
S23 33 


be ne — 


i 


4 | 
UAF PARSE -Jan=-1985 17:30:1 AX-11 Bliss-32 V4.0-74 Pp UAT 
v04-001 update_record = modify all specified fields b-Jan-19 4 13:30:18 LOAF .BUESRe UAF PARSE .832;1 si BS vOé 
7 DO 007D MOVL RO, STATUS : 
sf mg guy peu 3 
DD OO7ES 92$:  PUSHL STATUS : 1132 
000000006 00 1 FB 7E6 CALLS #1, LIBSSIGNAL ; 
01 7ED 93$:  BRW $s : 1133 
02 As 8 0O7FO 94$: BISB2 #2, UAFSGO SYSUAFF +2 + 1135 
1 AA A 007F4 RICB2 #2, RECBUFT46 : 1136 
67 1 b0 7F8 MOVL #1, STATUS : 113 
0228 C6 9F O07FB 95S: PUSHAB SD _PUOMINI MUM : 1140 
69 gi FB 7FF CAL'S #15 CLISPRESENT : 
23 0 E 80 BLB*t : 
04 AB é 8 0080 BIS82 #32, UAFSGQ_SYSUAFF+4 + 1143 
8 bb 6 PUSHL R11 + 1144 
0228 F PUSHAB SD _PUDMINIMUM : 
000000006 00 FB OO80F CALLS #2> CLISGET_VALUE ; 
DD 00816 PUSHL + 1145 
96 AA 9F 00818 PUSHAB RECBUF +362 F 
00000000v 00 98 FB 0818 CALLS #2, GETVAL : 
C 50 £9 008 ‘ LBC : : 
6 01 DO 008 MOVL #1. STATUS + 1147 
023c C6 9F 00828 96S: PUSHAB SD_QUEPRIORITY : 1150 
69 o1 FB 008 C CALLS #17 CLISPRESENT : 
24 0 +4 O82F BLBC—OséR : 
04 As 40 BF 88 008 é BISB2 #64, UAFSGQ_SYSUAFF+4 + 1153 
5B DD 008 PUSHL : 1154 
023c C6 9F 90839 PUSHAB SD_QUEPRIORITY : 
000000006 00 02 FB 0083p CALLS #27 CLISGET_VALUE : 
08 oD 00844 PUSHL @ : 1155 
31 AA OF 00846 PUSHAB RECBUF+517 ; 
00000000v 00 02 FB 0849 CALLS #2, GETVAL ; 
9A 0 €9 00 30 BLBC . : 
67 01 pO 0085 MOVL #1. STATUS : 1157 
0080 (6 OF 00836 97$ PUSHAB SD_SHRFILLM : 1160 7 i 
69 gi FB O85A CALLS #17 CLISPRESENT : | 
23 0 0850 BLBC % ; 
05 AB 04 0860 BISB2 #4, UAFSGQ_SYSUAFF+5 : 1163 
5B DD 00864 PUSHL > 1164 
00B0 (6 9F 00866 PUSHAB SD_SHRFILLM : 
000000006 00 08 FB 00 6A CALLS #27 CLISGET_VALUE : 
1 bp 0871 PUSHL #16 > 1165 
46 AA 9F 00878 PUSHAB RECBUF +538 ; 
00000000v 00 08 FB 0876 CALLS #2, GET VAL ; 
F E9 00870 BLBC » 101 3 
67 01 b0 0 MOVL #1, STATUS ; 1167 
00cO «(C6 OOF 98$ PUSHAB SD_TQEL + 1170 
69 fh. CALLS #1; CLISPRESENT : 
23 0 § r BLBC . : 
05 AB BISB2 #8, UAFSGQ_SYSUAFF+5 : 1173 
8 pp PUSHL Rif : 1174 
00c0 F 0089 PUSHAB SD_TOELM : 
000000006 00 FB 0089 CALLS #27 CLISGET_VALUE ; 
pp PUSHL #16 > 1175 
3E «AA OOF 008A PUSHAB RECBUF +530 ; 
00000000v Q : FB A CALLS . GETVAL : 
5 1 f ND AbVL #1. STATUS 24177 
oocc 6 BF BO 99% PUSHAB $D_UIC : 1180 


UAF PAX SE =Jan-1985 17:30:1 AX-11 Bliss-32 V4.0-74 UAS 
v04-0(1 update_record - modify all specified fields B23et=19 4 1S:d8it0 {OAR -BUGSRe UAF PARSE .832;1 vOé 
69 1 Ff B4 CALLS #1, CLISPRESENT : 71 

H} o 3 G 87 BLBC RO f bs : 31 

05 A aa BISB2# é, UAF $GQ_SYSUAFF +5 : 3] 

58 0D BF PUSHL 1 : 31 

00cc F O08C PUSHAB $D_UIC : 31 

900000006 0 r C4 CALLS #27 CLISGET_VALUE : :] 
00000000v F ¢ CALLS #0, ee TuIC : 31 
8 a D BLBC 3=—_s«aRO,_:«*103 : 31 

6 1 60 008D MOVL #1. STATUS : 31 

O0OEO C6 9F 008DB 1008:  PUSHAB SD /WSDEFAULT : 31 

$9 1 FB O8DC CALLS #17 j PRESENT : > 1 

6 0 DF BLEC OR : 71 

05 A 8 008E2 BISB2 #32, UAFSGQ_SYSUAFF+5 : 3] 

B DD BEG PUSHL R11 : 71 

00EO C6 SF OOBE PUSHAB SD_WSDEFAULT : 31 

000000006 00 02 FB OBEC CALLS ae CLISGET_VALUE : 31 
11 0D O08F PUSHL #1? : : 1 

4C «AA OF O08F5 PUSHAB RECBUF +544 : 31 

00000000v 00 98 FB OOB8FB CALLS #2, GETVAL : 31 
5F 50 €9 OOBFF 101$:  ®BLBC 105$ : 31 

4E AA B4 0908 CLRW RECBUF+546 : Bl 

67 01 DO 0090 MOVL #1, STATU : 31 

OOFO C6 9F 00908 102$:  PUSHAB SD_WSEXTENT : 31 

69 01 FB 009 CALLS #17 CLISPRESENT : 31 

27 50 €9 0090F BLBC OR : 31 

05 AB 40 BF 88 O9i¢ BISB2 #64, UAFSGQ_SYSUAFF+5 : 31 

5B DD 0091 PUSHL R11 : 31 

OOFO C6 9F 00919 PUSHAB SD_WSEXTENT : 31 

000000006 00 02 FB 0091D CALLS ae CLISGET_VALUE : 31 
17 DD 00924 PUSHL #1? : 1 

50 AA 9F 00926 PUSHAB RECBUF +548 5 4 

00000000v 00 08 F 09 9 CALLS #2, GETVAL : 31 
4F 50 €E 930 1038: BLBC 109$ : 3 1 

52. AA B4 009 CLRw RECBUF+550 : 1 

67 01 DO 09 MOVL #1, STATUS ; 31 

0100 C6 9F 00939 104%: PUSHAB SD/WSQUOTA : 31 

69 91 FB 9 CALLS #17 CLISPRESENT ; 71 

27 0 94 BLBC g ; 31 

05 AB 80 Hi 8 0094 BISB2 #128, UAF $GQ_SYSUAFF +5 : 31 

B DD 0094 PUSHL R17 ; 31 

0100 6 9F 0094A PUSHAB SD_WSQUOTA : 1 

000000006 00 FB O94E CALLS ae CLISGET_VALUE ; 31 
11 DD 009 PUSHL #1? ; 31 

48 AA 9F 00957 PUSHAB RECBUF +540 ; 31 

00000000v 00 08 FB 0095A CALLS #2, GETVAL ; 3:1 
1E & 961 105$:  BLBC R $ 3 3:1 

4A AA BS 00964 CLRW RE CBUF +542 : 31 

67 1 DO 00967 MOVL #1, STATUS ; 31 

08 990000006 00 é E A 106$: BBS #2, UAFSGL_CTLMSK, 107$ ; 31 
04 009000006 90 E1 00972 BBC #1, UAFSGL-CTLMSK. 108$ : 3:1 
0 1 3 gz 1078: MOVL #1, RO : : ! 

50 67 BO 00975 1088: MOVL STATUS. RO : : 

50 D4 ate 109$: CLRL RO ; 31 

4 009 RET 3 3 1 


UAF PARSE bss Jan-1985 12: af: iF AX-11 Oi hegre V4.0-74 
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; Routine Size: 2437 bytes, Routine Base: SCODE$ + 0000 


roe 


6 


H 
=Jan-1985 17:30:1 
getaccess - get hourly and daily access control ety 15:89548 
9 J Usbttl ‘getaccess = get hourly and daily access control flags’ 


sos © 
SSsoeeeese é 


CONOVLSWN OOD 
CONOUEWN—O 


jolelelelelo) 
i 


S8538 


wr 


Kt bette 


MAMA 


$2233 


3223 
AOAAAOOOUW = 
ViFWN—O OBNOUS WN —OOOnoe 


SELESRANLLS 
SF 


SNNNNOO 


Oe el el ll ll ll el ll al ll ll lll lll el ll ll ll el el el el ll ll ll el a ee lc ee el el 
fwn 0 0@ 


Oe ce ce el ee el el el el el eel ee ee el el el el el a el el el el el cl el el el el el cel cl el eel el al el al elt cel el el ll cel eel els els eels 


POPIPIPIPIDIPYNININPIPPINIMYAPININININININININININININY 


kt a ek et a a ot ot = = 


CA et et et et et ot et ot = 


SOOO MEW Oo 


—e getaccess (qual_name, access_type, qual_status) = 


++ 
FUNCTIONAL DESCRIPTION: 


Parse the value list for hourly login restrictions on the 
selected access modes. 


INPUTS: 
qual_name - descriptor of qualifier name to use 
qual_sfatus - status from cli$present for qualifier 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
! ROUTINE VALUE: 


SIDE EFFECTS: 


none 
map 

access_type : bitvector; 
STRUCTURE 


throsbyiqvestor Ci; n, ext=0) = 

n . 
(threebytevector+i*3)<0, 24, ext>; 

SASSUME rh Me ik (uaf$b_network_access_s) 


E YTEOFFSET 

SASSUME (SBYTEOFFSET (uaf$b_batch_access_p), GQL, $BYTEOFFSET ( 
SSUME (SBYTEOFFSET (uaf$b_batch_access_s), EQL, SBYTEOFFSET (ua 
SASSUME (SBYTEOFFSET (uaf$b_local_access_p), EQL, SBYTEOFFSET (ua 
SASSUME (SBYTEOFFSET (uaf$b_local-access_s), EQL, ag AL a (ua 
SASSUME (SBYTEOFFSET (uaf$Sb-dialup_access_p}, EQL, S$BYTEOFFSET (u 
SASSUME (SBYTEOFFSET (uaf$b_dialup_access_s), EQL, sev TEOrr set (u 
SASSUME (SBYTEOFFSET (uaf$b_remote_access_p), EQL, SBYTEOFFSET (u 
SASSUME (SBYTEOFFSET (uaf$b_remote_access_s), EQL, SBYTEOFFSET (u 


< 
2 


access _type - bitvector representing the access modes to be affected 


true -> all keywords and parameters were specified correctly 


f$b_network_access_p)+3); 
b_nétwork_access_sJ*3); 
b_batch_atcess_p)+3); 
b_batch_access_s)+3); 
ocal_access_p) 
_local_access_s 
_diaiup_access_p)+ 
$b_dialup_access_s)+ 
$b_remote_access_p)+ 


el lt ele eel eel el cel eel eel eel el eel cee el eel el eel el el el eel eel eel eel eel eel elt ell ell elt elt eel allt ls nell eel eel celle alls cells enlaces lle lt all ll lt lls cells cl els cl lt 


<c 

- €> 
wv 

> 

= 

-_y 

mm 


> ss 


CONE AE WOOO NONE UN OD SOM RUMI OS OOs OO Owreee 


PPA AA AIT BEBE EEE EPI 


AVSSELEABLELLS 


ANNO 


IN 


Ww 


tc ee ee ee el el ce el el el ee ee eB el ed eed 
ee ec ee el el ee ee el el el el el el el el el cel el el el el cel cel cel cel el cls cel cl lls cells cell cecal cel cls lls cal cals call cls calle ails casi 


Nw 


NO 


6 


“Jan-1985 17:30:1 AX-11 Bliss-32 V4.0-74 Page 46 
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$s 


$ access.vector = recbufCuaf$b_network_access_p] 
: threebytevecfor; 


! 
; Initialize output values. 


31 

3 primary_access = -1; 

9 secondary_access = -1; 

34 f not .qual_status then no_flag = true; 


t 
38 } Fetch value List items and parse them. 


while true 
do 


begin 
if not cli$get_value (.qual_name, tokendsc) 
then exitloop; 


Cooououo°o 
Wnr—OO0o 


z 


tparse_block(tpa$l_stringcnt] = .tokenlen; 

Fperse block tpa$l_stringptr] = .tokenptr; 

if not Lib tperse Ttparse block, access_states, access_keys) 
shen return LIBSSIGNAL(UAF$_BADVALUE, 2, .tokenlen, .tokenptr); 
end; 


WAw 


oocooo 
OCOnNOW 


' 
Default omitted values. 


if not .primary and not .secondary 

then secondary_access = .primary_access; 

if .primary and not .secondary 

then secondary_access = 0; 

if .secondary and not primary and .primary_access eql -1 
then primary_access = 0; 


WANA 
LALA. ALAR FORO MORUPUNONUND — 


S 
VM ODS MSMR MIO DOs NOUN SOOO NOME UU O 


if not .no_flag 
then 


begin 
primary_access = not .primary_access; 
secondary_eccess = not .secondary_access; 
end; 

' 


Write the Specified fields in the UAF record. 
incr j from 0 to 4 
do 


begin 
if .access_typel.jJ 
then 


begin 

octess. vector £43339 = .primary_access; 
eccess_vet tor -)*2+1) = .secondary_access; 
end; 


end; 


ee ee ed ee ee ee ee ee ee ee el el el el ee ee ee ed ee 


FORIMIGESR BB AMPTP IAI PIPPIN PINUPIPOPONoNTy 


true 


‘ 
UAF PARSE -Jan-1985 17:30:1 AX-11 Bliss-32 V4.0-74 
v04-001 getaccess = get hourly and daily access control B-Jan-19 4 15:89:13 UAF .BUGSRE UAF PARSE -039:1 
3; 1178 1343 1 end; 
003C 00000 GETACCESS: 
-WORD Save R2,R3,R4,R5 : 
5 999 0 06 9 9E 0000 MOVAB TOKENPTR, R5 : 
4 000 0 G 9E 000 MOVAB TOKENLEN, R4 : 
0000000' 00 9€ 019 MOVAB PRIMARY ACCESS, R3 : 
& 1 CE 9 1 MNEGL #1, PRIMARY ACCESS ; 
06 A 1 ¢ 1A MNEGL #1. SECONDARY_ACCESS ; 
- 04 0c aC E 0 3 BLBS QuAL STATUS, TS ; 
somone eas Ree Tiere : 
000000006 90 03 FB i F CALLS #2, CLISGET_VALUE : 
po OA 64 0 MOVZWi. TOKENLEN, TPARSE_BLOCK+8 : 
D8 OA 65 DO 000 MOVL _ TOKENPTR. TPARSE-BLOCK+12 : 
00000000' 00 9F 9041 USHAB ACCESS_KEYS : 
00000000" 00 9F 00047 PUSHAB ACCESS STATES : 
CC AS. OF 00040 PUSHAB TPARSE BLOCK ; 
000000006 00 9 FB 9050 CALLS #3, LIBSTPARSE ; 
FA bp 0054 PUSHL  TOKENPTR : 
7E 63 MS Bpoee rt Lge TOKENLEN, -(SP) F 
000000006 8F DD 00061 PUSHL  #UAF$_BADVALUE ; 
000000006 00 04 FB 9067 CALLS #4 LYBSSIGNAL : 
30 0c a3 D0 O06F 2s: MOVE PRIMARY, RO ; 
04 10 AS EB 007% BLBS § SECONDARY, 3$ ; 
06 «Ad : D 7A MOVL § PRIMARY_ACCESS, SECONDARY_ACCESS : 
07 £9 O07E 3$: BLBC ; 
07 10 A3 €8 08 is: BLBS § SECONDARY, 6$ : 
04 Ad D4 5 CLRL SECONDARY ACCESS : 
OE 10 ad £9 5$: BLBC SECONDARY, 7$ ; 
08 50 EB C 6$: BLBS RO, 7 : 
FFFFFFFF © BF 6 bi 90 F cmPL PRIMARY_ACCESS, #-1 : 
65 D4 38 CLRL  PRIMARY_ACCESS : 1319 
0 08 ad €E 9A 7$ BLBS LAG; ° 3 132" 
6 63 D Hi MCOML PRIMARY ACCESS, PRIMARY ACCESS > 13246 
04 =A 06 Ad D A MCOML SECONDARY_ACCESS, SECONDARY_ACCESS + 1325 
2 D ~ gs CLRL : 1351 
21 08 iA 51 $ J ACCESS _TYPE, 10$ :1 
2 3 01 AD ASHL . JR : 1337 
51 C 1 MULL3 #3. Rd, RI : 
0000000060041 18 t F 9 INSV, PRIMARY_ACCESS, #0, #24, ACCESS_VECTORCR1) = 
0000000060061 18 06 ad F (3 INSV ECONDARY ACCESS, #0, #24, ACCESS_VECTOR+3- : 
D6 0 Bie CE 10$: AOBLEG #4, J, 9% > 1331 
8 if 68 iit MOVL #1. RO > 1343 


UAF PARSE b-Jan-1985 12:30:13 AX=11 Bliss-32 V4.0-74 Page 48 
v04-001 getaccess - get hourly and daily access control 2-0ct-1984 13:01:1 UAF .BUGSRC JUAF PARSE .B832;1 (4) 
04 00005 RET 


; Routine Size: 214 bytes, Routine Base: SCODES + 0985 


SS EEE 


b-san-19 5 17: 30: | AX-11 Bliss-32 V4.0-7 Page 49 
check primary = check presence of PRIMARY keywo 2-0ct-19 UAF .BUGSRC JUAF PARSE. 833: 1 (5) 


4 1 Isbttl ‘check primary = check presence of PRIMARY keyword’ 
1 begin’. check_primary = 


1 

1345 

1 *$ 

154 Y -ertecre and not .secondary 
1348 ends 


WO B Save no eaten 3 133 

50 00000000' 00 00000000' 00 c9 00002 BISL SECONDARY, PRIMARY, RO 3 1347 
50 50 D2 OO00E MCOML RO, RO 3; 1346 

04 00011 RET ; 1348 


Routine Size: 18 bytes, Routine Base: SCODE$ + OASE 


0000 00000 CHECK PRIMARY: 


UAF PARSE 
v04-00% 


; Routine Size: 


a 6 
check secondary = check presence of SECONDARY k et Hi 15:89:18 Oar BU 


49 1 Bsbttl ‘check secondary - check presence of SECONDARY keyword’ 
3} 1 routine check secondary = 


begin 
; not .secondary 
nd 


1 
1 
1 
1 
1 end; 


5 


0000 00000 CHECK_SECONDARY: 
ORD 


50 00000000' 00 v2 00002 SNDARY "Ro 
0% 00009 


. Sav 
MCOML SECONDARY, 
PET 


10 bytes, Routine Base: S$CODE$ + OA6D 
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v04-001 set_range = set hourly restriction bits “Oct-19 UAF .BUGSRC JUAF PARSE .832;1 ) 

: 1138 1354 1 &sbttl ‘set_range - set hourly restriction bits’ 3) 

3 119 1355 1 Lobal routine set_range = ; 

1198 : — 2 

: 1196 1358 2 !4+ > 

3 1197 135° ' S| 
1 3 1136 ! rs FUNCTIONAL DESCRIPTION: : | 

; : Bo : ? ; Set or clear appropriate hourly login restriction bits : ! 

3 Oe 64 i INPUTS: i] 

> 1204 1366 ‘ none | 

; 1205 1367 ! : 1 

: : oe : rt IMPLICIT INPUTS: : 1 

: 1208 1370 2: :1 

; 1s : 4 : OUTPUTS: : ! 

3 1211 1 ig ! none 3 1 

: isi¢ 1374 ‘ s 1 

; \st7 13°? } ROUTINE VALUE: : ' 

: 154 1399 i true => successful completion : 1 

; 1218 1378 false -> error in flag name ) 

: 1218 1380 2 :1 

: 1219 1381 builtin 3 3 

; 1220 1386 ap; 31 

; iss 138 3 7 

: 1 $8 1384 map 

: iss? 1382 ap : ref block C,byte); 

; 1558 1389 5 Local 

3; 1226 1388 address, 

3 1227 1389 width, 

; 1e<8 1330 leftmost, 

es tle wrap; 

: 1380 1392 ‘ 

3; 1231 139 ! 

: 1338 133e Point to the flags longword to use. 

:1 1396 if «secondary 

: 1235 133 then address = secondary access 

: ' $ 4 else address = primary_actcess; 

:1 34 1400 2! 

; 1239 1401 : Get the ending bit - note that this is the same as the starting 

; 1341 1408 : bit for a single hour. 

: 1248 1404 left_bit = .apltpa$l_number); 

> 1244 1406 

; 15en pe t4 Make sure hour is not out of range 

: 1529 1409 if .left_bit gtru 33 

; 1248 1410 or .right_bit gtru 


range - set hourly restriction bits 


WIS 
~o 
Q 


— — 
to 


| eh ee ee ee ee ee ee ee ee ee ee et ee et ae ae oP ae oP ae a? oP oP 


S&F AWW IWIIWinononononononononony 2 
WN" SO OONA UE WW OO ONOAUE AN OOONOULS WH) — 


tt De em a ec ee ee el el ee ed ad 
we 


Moronornonononons 
OOwoony~n~s 


=PRPIPINPIPINIPNININININININIWIWIUONoNonononononononononononononony 


OO el ce el el ee el el el ll el eel elt cel eel el el cl el el el 


SLL LEE ESE 


Ree 


WN —O OO oe 
we 


7 
B-san-198s 10:30:13 AX-11 Oi leant V4.0-74 
=0ct-1984 13:01:71 UAF .BUGSRC JUAF PARSE .B832; 1 


hen 
return false; 
! 
Clear out the default field value if this is the first real value. 


if ..address eq! -1 
then .address = 0; 


wrap = fal 


se; 
leftmost left_bit; 


' 
If the starting bit is greater than the ending bit, allow field to wrap 
if .left_bit lss .right_bit 
then 
pegin 
leftmost = 23; 


wrap = true; 
end; 


! 
Set field width(s) and set appropriate bits 


width = .leftmost - .right_bit + 1; 
(,address)<.right_bit, .width> = -1; 


if .wrap 
then (.address)<0, .left_bit+1> = -1; 


return true; 


end; 


003c 00000 .ENTRY SET_RANGE, Save R2,R3,R4,R5 
55 00000000" 00 3 0000 MOVAB LEFT BIT, 
96 18 AS 3 00 BLBC SECONDARY, 1$ 
5 Oc AS f 9900 MOVAB SECONDARY ACCESS, ADDRESS 
04 1 11 BRB $ 
53 08 AS i 0013 1$ MOVAB PRIMARY_ACCESS, ADDRESS 
65 1C AC 00 00017 2$ MOVL 28(AP),“LEFT_BIT 
54 65 DO 0001B MOVL LEFT git. R4 
17 54 DI OOO1E CMPL ORG, BF 
47 1a 00021 BGTRU 6$ 
17 04 aS 01 000 3 CMPL RIGHT BIT, #23 
41 1A 90 BGTRU 6 
FFFFFFFF 63 01 000 CMPL (ADDRESS), #1 
02 12 88 BNEQ 
D4 CLRL (ADDRESS) 
D4 00034 38 CLRL 
4 D0 000 MOVL R4, LEFTMOST 


Sete Be Oe Se Se Se Be Se Oe Se Oe ee Be Se Se 
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#1, WRAP 
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UAF PARSE 
1 “0c t-1984 13: UAF .BUGSRC JUAF PARSE. 


v04-00 


85 1446 1 &sbttl ‘getcputim = get cpu time quota’ 
140? 1 pieees rbautine getcpatia ’ 
gin 


getcputim = get cpu time quota 


20000 
NO 


OOo 


lee 
FUNCTIONAL DESCRIPTION: 
Fill im the CPU time Limit in the proper field in RECBUF. 
INPUTS: 
none 
OUTPUTS: 
none 
ROUTINE VALUE: 


true => success 
false -> invalid value supplied 


OO00O00@ 
VMPwnN— 


Wrorororerfors 
ARAN LS SSLS 
Sal ttl ta taka tal laa a ek el lt et at at at at 


SNS AAA AAA AAA A Sr IIIT 


delta_time : vector (2, Long], ! system delta time temporary 
cpu_time, : CPU time work variables 
remainder; 


FWN ("OO OODNAUFE AN "OC ODNAUIFS WN O” 


WWWWAN AA AW AAA 


builtin : 

ediv; 

! 

! Convert ASCII to system delta time 


: 
; 
: 
; 
: 


OODwoyayN~ 
Wr —-OO0Onouw 


7 not LibScvt_dtime (tokendsc, delta_time) 
en 
return LIBSSIGNAL(UAF$_BADVALUE, 2, .tokenlen, .tokenptr); 


! 
Convert system delta time to a longword value which is in .01 sec. units 


i? (ediv (Zref (-200000), delta_time, cpu_time, remainder) and psi$m_v) neq 0 
en 

return LIBSSIGNAL(UAFS$_VALTOOBIG, 2, .tokenlen, .tokenptr); 
recbufCuaf$l_cputim] = (.cpu_time * 1) + (if .remainder eql 0 then 0 else 1); 


LS 


true 
end; 
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UAF PARSE ba san-1 :30:1 AX=-11 Bliss-32 V4.0-74 Page 55 UAl 
v04-001 getcputim = get cpu time quota -Oct- 1882 13:89:18 UAF .BUGSR RCIUAF PARSE. B32;1 rv (a) vO 
003¢ -ENTRY GETCPUTIM. ave R2,R3,R4,R5 3 1447 
5 900000006 se MOVAB TOKENL as : 
4 G 5 ROVAR egie RG : 
: 55 6001 nt = 1483 
000000006 er 1 PUSHAB "9 KEN psc F 
000000006 00 FB 1 CALLS wee ae : 
64 pd PUSHL TOKENP + 1485 
7E 5 3x MOVZWL TORENCEN, =(SP) : 
2 0D 3 A PUSHL : 
600000006 oF DD 90 ¢ PUSHL AYAFS BADVALUE : 
53 52 6E FFFCF2CO 8F 78 909 1$: EDIV. #200000, DELTA_TIME, CPU_TIME, REMAINDER : 1491 
0 oC 9030 MOVPSL ; 
15 50 1 €1 0003F RO, 3$ ; 
64 bp 0043 PUSHL FOKENe NPTR + 1493 
7E 65 3C 00045 MOVZWIL TOKENLEN, =(SP) : 
02 DD 00048 PUSHL : 
000000006 8F DD D004, PUSHL FUAFS VALTOOBIG ; 
000000006 00 04 FS 00050 28: CALLS #4, LIBSSIGNAL ; 
04 00057 RET : 
53 Ds 90098 3$: TSTL | REMAINDER + 1495 
04 12 0005a BNEQ 4$ : 
50 D4 0005¢ CLRL = RO ; 
03 11 9005 BRB 5 : 
50 01 DO 00060 4s: MOVL #1, RO : 
000000006 00 6042 3€ 00063 5$: MOVAW (RO)CCPU_TIME], RECBUF +556 : 
50 01 DO 00068 MOVE #1, RO + 1498 
04 0006E RET : 


; Routine Size: 111 bytes, Routine Base: S$CODES + OAE4 
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; ‘s 19 
B23et= 198 
! Asbttl ‘getdevice - get default device name’ 


lobal routine getdevice = 
egin 


ow 


Sidti1) — UOAFLeuesned 


tee 
! 


i FUNCTIONAL DESCRIPTION: 


Fill in the default device name in RECBUF. 
Will also append an ending colon if omitted. 


INPUTS: 

none 
OUTPUTS: 

none 
ROUTINE VALUE: 


true => update successful 
false => error in specification 


strlen; 
7 not getstring (recbufCuaf$t_defdev), uaf$s_defdev, counted_string) 
en 
return false; 
Check to see that string has ending ':' 
and add one if not. 


If string length is zero, then field has been removed so 
there's no need for the check. 


strlen = .‘recbufCuaf$t_defdev])<0,8>; ! get string length 
if .strlen eql 0 
then 
return true; 
5 -(recbufCuaf$t_defdev] + .strlen)<0,8> neq colon 
en 


begin 
if .strlen geq uaf$s_defdev-1 
then 


return LIBSSIGNAL(UAF$_INVDEV és etokenlen, .tokenptr); 
(recbutLuat tadetdevis. trlen+1)<6,8> = coten; 
(recbuf uaf$t~defdev))<0,8> = .strlen + 1; 


eng; 
return true; 
end; 


UAFPARSE .B39:1 
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UAE PaRse 
v04-00 getdevice - get default device name 
53 000000006 


00000000v aA 
2 


MOVNVIOO 
WOW" O 


000000006 00 


“Origa 


3A 6342 
" 
000000006 00 

7E 000000006 $ 
000000006 ; 

A 

1 

1 


SOW SWOOCO SVM FWUo 
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; Routine Size: 86 bytes, Routine Base: S$CODE$S + 0B5S3 


bsan-1 
-Oct-1 


HAE RR ta Ee ae 


» GETSTRING 

CBUF+116, STRLEN 
CBUF+116CSTRLENJ, #58 
RLEN, #31 


++" MN DoDBDawDeaewoa 


“SSS SoS oe 


ENP 
TOKENLEN, -(SP) 


PUAFS INVDEV 
#4, LIBSSIGNAL 


td RE CBUF +117CSTRLEN) 
je SIRLEN. RECBUF +116 


‘RO 


roe 


H 7 
eT getdirectory - get default directory ae Fi 15:88:48 UA BUGSRESUAF PARES .03951 Page 435 


3 1 38 1555 1 &sbttl ‘get rectory - get default directory’ 

; 139 1 § 1 gio al routine getdirectory = 

3 1 a8 1 eg n 

3: 1 1 8 '+ 

; 1400 1 : 

3 138) ! 99 FUNCTIONAL DESCRIPTION: 

$ 1208 1 $6 ! This routine parses the user default directory and places 
3 1404 156 ! it into the buffer if the form is correct. If delimiters 
3; 1405 1564 : are not present, they are added. 

3 1o08 1565 : 

3 138 1 $8 ' INPUTS: 

: 1408 156 ' 

: 1409 1568 ! none 

: 1410 1 4 ‘ 

3 1411 1570 ' OUTPUTS: 

3 1ei6 1571 ' 

3 141 1376 ! none 

3 14614 157 ! 

3 1415 1574 ' IMPLICIT INPUTS: 

: 1416 1575 ! 

3 1417 1576 : TOKENLEN = Length of default directory string 

3; 1418 1577 : TOKENPTR = pointer to default directory string 

: 1419 1578 ! 

: 1420 1579 lon 

3: 1421 1580 local BRACKETLESS; 

3 14 4 1581 

3 14 1386 } 

: er 138? Crank directory spec through tparse 

3; 1426 1585 tparse_block ptpast stringent) = ,tokenlen; 

; re t4 1386 tparse_block [tpa$l_stringptr] = .tokenptr; 

: 1¢¢3 1386 if not LibStparse (tparse_block, dir_states, dir_keys) 

: 1430 1589 then 

3 ites 1230 return LIBSSIGNAL(UAF$_BADVALUE, 2, .tokenlen, .tokenptr); 
: 1433 1398 ' 

3: 1434 159 ! Did the string have enclosing brackets (matching is guaranteed 
$ rt HF } by the command parser) ?? 

: 1437 1298 BRACKETLESS = (.(.tokenptr)<0,8> neq 'C') and (.(.tokenptr)<0,8> neq '<'); 
: 1235 1398 ! 

3 ry 1000 : Make sure that the string isn't too long 

: 1449 1601 if (((.tokenlenti) geq uaf$s_defdir) and not .BRACKETLESS) 

7 144 1608 or ((.tokenlen+3) geq uaf$s_defdir) 

3 14446 160 then 

3 1942 1one return LIBSSIGNAL(UAFS_INVSTR, 2, .tokenlen, .tokenptr); 

: 1409 1608 : 

: 1648 160 ! Move the string into the UAF record 

3 1449 1088 ' 

3; 1450 16 if .BRACKETLESS then 

3 14651 1610 begin y 

3: 1452 1611 vector(recbufCuaf$t_defdir], 0;, byte] = .tokenlen + 2; 
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1618 ves torCrechuflustSt. defdir), Vie, byte] = 'C'; 
161 copy ( gouenten. 7 token od 

1614 uat$s_defdir-2. recbuf yaise. defdir}+2); 
161 : vector(recbufluaf$t_defdirJ, .tokenlen¢2;, byte] = 'J'; 
ig19 lse 

1918 begin 

161 srecbufluerst afetdir3)<0, &> = phyhontens 
1620 omceer’- .tokenlen, -tokenptr 

1621 uafSs_defdir-1, recbufluaf$t_defdir]+1); 
1° ¢ end; 

Mh : return true; 

1626 1 end; 


ee ee ee ee ee 


O7FC 00000 ENTRY GETDIRECTORY. Save R2,R3,R4,R5,R6,R7,RB,R9,-; 1556 ; 

5A 00000000" 00 9€ 0000 MOVAB TO ARSE BLOCK+8, R10 : : 

59 999000006 0 9E 000 MOVAB TOK ENLEN, RO : ; 

58 000000006 9E G19 MOVAB TOKENP : : 

57 000000006 00 H 901 MOVAB RECBU a hie F ; 

6A 69 ¢ 1E MOVZWL TOKENLEN, fe _BLOCK+8 : 1585 : 

04 AA 8 DO 00021 MOVL _ TOKENPTR, TPARSE-BLOCK+12 : 1586 ’ 
00000000' 0 9F 00025 PUSHAB DIR_KEYS : 1588 ; 
00000009" 9F 00028 PUSHAB DIR-STATES : ; 

F AA 9F 38 1 PUSHAB aig BLOCK $ ; 

LL : 3 

000000006 00 F 90 CALLS IGSTPARSE ; 
68 DD 000 PUSHL TOKENP + 1590 : 

7E 69 3C¢ MOVZWL TOKENLEN, -(SP) : ; 

02 dD PUSHL # : ; 

000000006 er DD PUSHL #UAF $_BADVALUE ; : 

52 68 ny) 1$: MOVL §TOKENPTR, R2 + 1596 : 

1 04 CLRL : : 

5B OF 9 CMPB ss (R2), «#91 : 3 
1 BEQL 28 ; : 

06 INCL R1 : 3 

4 2 CLRL =. RO : : 

3C } ¢ (R2), #60 : : 

1 BEQL 3$ : 3 

i) } INCL Rg 3 : 

3 1 0 63 3S: ICOM, R1, BRACKETLESS ; : 

53 0 3 CB i BIC BRACKETLESS, RO, BRACKETLESS ; : 
1 69 3c MOVZ2Wi. TOKENLEN, R1 > 1601 : 

0 01 al MOVAB. 1(R1), RO ; ; 

F p CMPL RO, #63 : ; 

9 SIBC BRACKETLESS. S$ : : 

$0 03 Al 5 18 48: MOVAB Beat bf : > 1602 3 

F 30 CMPL RO, #63 : : 

1 5 BLEQ 7 3 3 


; Routine Size: 197 bytes, Routine Base: S$CODE$S + OBA9 


UAF PARSE -Jan-1985 1 :1 AxX-11 Bliss-32 v4.0-7 Pa 
v04-001 getdirectory - get default jirectory bosinetg 4 15; a4: 13 UAF .BUGSRC JUAF PARSE. B3 31 948) 
BB 2 5$: PUSHR #*M<R1,R2> 3 1604 : 
DD PUSHL #2 ; : 
0C0000006 B&F DD PUSHL aUAFS INVSTR : ; 
000000006 00 4 Fe g 68: CALLS #4, LIBSSIGNAL : : 
50 69 3 94 7$: MOVZWL TOKEN EN. RO + 1611 ; 
1 6 d 97 MOVL TOKEN R1 + 1613 ; 
1A 9A BLBC RACKET $8. BS + 1609 : 
5 02 A 90 MOVAB 2(RO) + 1611 : 
6 é Al MOVB Rg RE CBUF +148 : ; 
01 A? SBF AG MOVB R Ri Cours 149 + 1612 F 
Vv ° U aa 3 . 
3E 20 61 a ¢ a9 mOVCS RO, #32, #62, RECBUF+150 1614 ; 
6746 D «BF 90 B MOVB #93, RECBUF+148(R6] + 1615 ; 
A 1 B BRB 9 + 1609 ; 
67 0 90 08 8$: MOVB. RO, RECBUF+148 + 1619 ; 
3F 20 61 bate 2c 0 OBA MOVCS RO. (R1), #32, #63, RECBUF+149 > 1621 ; 
50 01 pO 000C1 98: MOVL , RO ; 1624 : 
04 000C4 RET + 1626 : 


AF PARSE -Jan- - ° = 
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} Zsbttl ‘checklength - check directory name Length’ 
, couse ne checklength = F 


634 
1688 
1038 peaie 
1639 builtin ap 
1038 map ap: ret block C,byte 
1635 if -apltpa$i_ tokencnt ot 39 then return false else return true; 


3 
7 
3 1 
: | 
sf 
. y 
s 1 end; 


0000 00000 CHECKLENGTH: 
WORD 


. Save nothin 
27 10 at D1 00002 CMPL 16(AP), 939° : 1839 | 
9 15 000 BLEQ) = «1$ ; 
0 »d4 000 CLRL = RO : 
04 O000A RET : 
50 01 D0 00008 1$: MOVL #1, RO : 
04 O000E RET ; 1640 
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See SRT Wate tbhesadbethee 28. 
1 Zsbttl ‘getflags - pet flag bits’ 
gs = 
= 
i FUNCTIONAL DESCRIPTION: 
Get login flag bit settings. 
INPUTS: 
none 
i IMPLICIT INPUTS: 
FLAG_TABLE = table of flag bit numbers and ascii names 
OUTPUTS: 
none 
ROUTINE VALUE: 
i 


true -2 successful completion 
false -> error in flag name 


status, 

keyword_dsc : vector (2), 

no flag, 

code, ! return from find_val 
ientry; 


! Retrieve flag values as long as there are any present 


while cli$get_value (sd_flags, tokendsc) do 
; Initialize keyword descriptor 


begin 
hepuord_ds¢ fo} = .tokenlen; 
keyword_dsc [1] = .tokenptr; 


no_flag = false; 
' 


i If "NO" prefix specified, set no flag and adjust the 
keyword descriptor to remove Ehe "NO' 


if ch$eql (2, .mo_dsc (1), 2, .keyword_dse (1)) 
then 


begin 
keyword_dsc [0] = .keyword_dsc (0) - 2; 
keyword dsc ab = heyuord-dse ab + 5: 


UAF PARSE 
001 


nN 7 
yee gu gon= 138? 10:30:13 AX-11 Oi heart V4.0-74 Pose SS 


getflags - get flag bits “Oct-19 UAF .BUGSRC JUAF PARSE .832;1 


: 154 1698 4 no_flag = true; 5 
$n | a 
: 1545 104 4 if (status = LibSlookup_key (keyword dsc, flag_table, code)) 3:1 
> 1546 1706 then 3} 
180g 1502 i vali ft bi . 
; ' va ag, set bit 3 
: 1968 1708 ssialtiasian enacted | 
; rec agsJ)<. i> = © « : 
: 1551 1707 OO ye agit atte tah pe pe stain. : 
: 1226 1708 select .status of 3 } 
3 132 1709 set 3 | 
: 1554 1710 . 3 
ie TK Regan apr oe : 
1338 Hay ; | _am " : signa cli$_abkeyw); : } 
1328 Har ; unrecognized keyword? .4 
3; 1561 1717 3 ClibS_unrkey] : signal (cli$_ivkeyw); 3 | 
3 1206 1718 3 ' | 
: 156 1719 3 ! whatever, always return an error if we're in here 3] 
: 1564 1720 3 ' | 
: 1565 1721 3 Calways] : return false; 3 | 
3: 1566 1722 3 tes; 3 | 
3; 1567 1723 3 | 
3; 1568 Hat 2 end; 3 1 
3; 1569 1725 § $1 
; 1570 1726 return true; x} 
3: 1571 1727 1 end; 3 
:1 
st 


001¢ 00000 -ENTRY GETFLAGS, Save R2,R3.R4 > 1642 
54 000000006 00 i 0002 MOVAB LIBSSIGNAL, R4 : 
5E O¢ § 000 SUBL2 #12, SP : 
000000006 00 SF 900¢ 1$: PUSHAB TOKENDSC + 1680 
00000000' 00 9F iF PUSHAB SD_FLAGS : 
000000006 0 ; FB 0018 CALLS #27 L1SGET_VALUE ; 
04 AE 000000006 00 ? 0022 MOVZWL TOKENLEN, KEYWORD_DSC > 1685 
08 AE 000000006 D6 6 A MOVL  TOKENPTK, KEYWORD-DSC+4 ; 1686 
D 2 CLRL = NO_ > 168 
50 00000000' DO 00 MOVL NO~DSC+4, RO > 1693 
08 BE 60 8] 00 cHPW (RO), @KEYWORD_DSC+4 : 
04 AE C O44 SUBL 2 #2, KEYWORD_DSC > 1696 
08 AE C 45 ADDL2 #2, KEYWORD "DSC +4 > 1697 
5 D 9 MOVL #1. NO_FLAG > 1698 
’ BD 4C 28: PUSHL : 1701 
00000000° F 4F PUSHAB FLAG_TABLE ; 
OC AE OF PUSHAB KEYWORD DSC ; 
000000006 99 F 7 CALLS #3, LIBSLOOKUP_KEY ; 
hy f MOVL RO. STATUS : 
0€ E9 0006 BLBC STATUS, 3$ ; 


VOurOuTe getflags - get flag bits Boyan 198 15: 3%: 13 UAF .BUGSR RCIUAF PARSE .B3 B32;1 


-Jan-1 AX=-11 Bliss-32 V4.0-7 Page $5 
(13) 


50 D MCOML NO_FLAG : 1706 
000000006 00 01 6E 36 6 $f INsv n, tose. a. RECBUF +468 : 
000000006 &F 3 Db} fe 3$ CHPL S{ATUS, #L1B$_AMBKEY : 1713 
000000006 8F 0D 7B PUSHL #CLIS A ABKEYY : 
64 | FB 1 CALLS LTBSSIGNA : 
000000006 8F D 4 4$ CMPL eraTHSe PLIBS- UNRKEY + 1717 
OF 12 000 BNEQ : 
000000006 8F DD 60080 PUSHL #cLis IVKEYW : 
64 01 FB 0009 CALLS , LIBSSIGNAL : 
046 11 0096 BRB cs : 1721 
50 01 DO 00098 5$ MOVL , RO + 1726 
04 00098 RET : 
50 D4 0009C 6$ CLRL RO : 1727 
04 0009E RET : 


; Routine Size: 159 bytes, Routine Base: S$CODE$ + 0C90 


8 
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| 
; 1573 1728 1 &sbttl ‘getpflags - get old per day login flags’ 
: 182 1729 1 global routine getpttags (qual_nane) ~ ° 
; 1575 1730 egin 
: 1278 1731 
3; 157 17 ¢ 'ee 
; 1578 17 : 
; 1579 1734 ' FUNCTIONAL DESCRIPTION: 
128) 5 3 Get prime day login flag bit ti 
3 i et prime day login fla it settings. 
: 1582 1989 5 i Pres . ; 
; 158 1738 ' JNPUTS: 
> 1584 1739 : i 
3; 1585 1740 : qual_name - address of descriptor for qualifier name 
>; 1586 1741 ! 
: 1587 tg ! IMPLICIT INPUTS: 
; 1588 174 : 
: 1589 17464 2! OPFLAG TABLE = table of flag bit numbers and ascii names 
; 1230 1? PRIMARY = true if getting primary day, false if secondary 
5 1238 1747 ' OUTPUTS: 
: 159 1748 2! 
> 1594 1749 2: none 
3; 1595 1750 ‘ 
3: 1596 1751 ' ROUTINE VALUE: 
: 1597 736 : 
: 1598 1753 2! true => successful completion 
; 1599 1754 : false -> error in flag name 
; 1600 1755 !e- 
: 1601 1756 
; iene 1757 local 
: 160 1758 status, 
: 16046 1759 keyword_dsc : vector (2), 
; 1605 1760 no_flag, 
; 1606 1761 2 code, ! return from find_val 
; 1607 1766 § jentry; 
: 1608 176 
: 1609 1764 : 
: Ho 1082 Retrieve keywords as long as any are present 
; els 1767 while cli$get_value (.qual_name, tokendsc) do 
; 161 1768 
3; 16146 4A 4 begin 
3: 1615 1770 keyword_dsc £0} = ,tokenlen; 
3 1618 1771 keyyord_ é3¢ 1] = ,tokenptr; 
: 161 4404 no_flag = 0; 
: 1618 177 
; 1619 1774 : ; 
; 1620 1775 ! Test for presence of 'NO'prefix. If present, adjust descriptor 
; 1 177s : to remove it, and set no_flag. 
; 16 ‘ 1778 if ch$eql (2, .mo_dsc (1), 2, .keyword_dsc (1)? 
: 1626 1779 then 
: 1636 1781 begi 
; egin 
: 16 $ 17 ; 6 Fepuord. dsc £9} = .keyword_dsc fo} e $3 
: 1628 17 4 keyword dsc (1) = .keyword_dsc [1] + 2; 
; 1629 1784 4 no_flag = -1; 


8 | 
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Wt es Ty oa : 
; 16 § 17 ; & if (status = LibSlookup_key (keyword_dsc, opflag_table, code)) ; 
; 16 1788 then PF 
3; 16 1789 ‘ : 
; 1° 5 1239 | valid flag, set bit : 
; 1637 1736 case .code from uaf$k_disdialup to uaf$k_disnetwork of : 
3 1938 179 fe ; 
: 1639 1794 uaf$k_disdiaiup): : 
; 1640 1795 4 begin : 
3: 1641 1738 4 if “pr laers $ 
3 1066 1797 & then recbufCuaf$b_dialup_access_p] = not .no_flag : 
3 164 1798 4 else recbufluaf$b_dialup_access_s] = not .no_flag; : 
> 16446 1799 ; end; ; 
; 1645 1800 Cuaf$k_disnetwork): : 
; 1646 1801 4 begin : 
> 1647 1006 4 if pr inary F 
; 1648 1805 4 then recbu fusfsb.renote_access_p = not .no_flag : 
>: 1649 1804 4 else recbufluaf$b_remote_access_s] = not .no_flag; 3 
: 1650 1805 end; : 
: 1651 1306 tes 5 
; 1036 139 else 3 
; 165 1808 select .status of 3 
: 1654 1809 3 set 3 
; 1655 1810 ’ $ 
; 1656 1811 ! ambiguous keyword? , 
: 1657 1812 ‘ 3 
: 1658 1813 ClibS_ambkey] : signal (cli$_abkeyw); : 
> 1659 1814 ; ; 
; 1660 1815 ! unrecognized keyword? 3 
: 1661 1816 ; : : 
3 1006 1817 ClLib$_unrkey] : signal (cli$_ivkeyw); 3 
; 166 1818 : $ 
3; 1664 1819 ! whatever, always return an error if we're in here ; 
: 1665 1820 : $ 
; 1666 1821 Calways) : return false; F 
: 1667 18s¢ tes; : 
: 1668 182 3 
: 1669 1824 2 end; $ 
: 1670 1825 § 3 
: 1671 1366 return true; : 
3; 1672 1827 1 end; : 
003C 00000 «ENTRY GETPFLAGS, Saye R2,R3,R4,R5 3 1729 : 

5 44 4 : 9€ 0000 MOVAB Liesso: R 3 : 

4 000000006 3 MOV RECBUF +490, R4 3 3 

E § 1 SUBL a ; : 

000000006 F 00013 18: PUSHAB TOKENDSC : 1767 ; 

04 DD 1 PUSHL QUAL_NAME : : 

000000006 0 r 6 CALLS #2, Gl ISGET_VALUE 3 3 

§ § BLBS R 3 : 

009F 6 BRW 12§ : : 


; Routine Size: 207 bytes, Routine Base: S$CODE$ + OD2F 
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v04-001 getpflags - get old per day login flags bJon-1965 150810 {Oar -BUGSRE UAF PARSE .832;1 a ty 
4 AE 000 6 3 9 2%: MOVZWL TOKENLEN, KEYWORD_DSC ; 1770 ; 
88 AE dda 06 1 MOVL TOKENPTR, KEYWORD-DSC +4 : 1771 ; 
D4 9 CLRL = NO_FLAG : 177 3 
50 00000000' D0 MOVL  NO-DSC+4, RO : 177 ; 
08 BE B} 0004 chew (RO), axEYWORD_DSC +4 : ; 
04 AE (3 4 SUBL2 #2, KEYWORD_DSC : 178 ; 
08 AE C 4 ADDL2 #2, KEYWORD-DSC+4 : 178 ; 
5 CE MNEGL #1, NO_FLAG 3 1784 ; 
: pb 3$ PUSHL : 1787 ; 
00000090" 00 OF PUSHAB OPFLAG TABLE : ; 
C AE OOF 38 PUSHAB KEYWO DSC : ; 
000000006 9 F § CALLS #3, LIBSLOOKUP_KEY 3 ; 
DO 0006 MOVL RO, STAT : : ; 
? E9 00068 BLBC STATUS, 10$ : ; 
1 00000000° 99 09 0 MOVL PRIMARY, R1 : 1796 ; 
50 D2 000 MCOML NO_FLAG. RO > 179 ; 
01 01 6— CF 0007 CASEL COBE aon > 1792 ; 
0016 0004 ~ 00079 4s ‘WORD 38-46, ; 
07 51 €9 00070 5$: Bec ORI, 7 > 17% : 
64 18 00 50 FO 00080 INSV RO, #0, #24, RECBUF+490 > 1797 ; 
8C 11 Bes gs: HRS 1$ : 5 
03 AG 18 00 50 FO 00087 7$: INSV RO, #0, #24, RECBUF+493 > 1798 : 
84 11 000 BRB 1$ : 179 ; 
08 1 £9 OOO8F 8s BLBC =O s «aR, -9$ > 180 ; 
06 AG 18 00 50 FO 9009 INSV RO, #0, #24, RECBUF +496 : 180 ; 
EB 11 0009 BRB 6$ : ; 
09 AG 18 00 FO OO09A 98: INSV RO, #0, #24, RECBUF +499 > 1804 ; 
E 11 900A BRB 68 ; 1796 ; 
000000006 8F D1 OO0A2 108 CMPL STATUS, #LIBS_AMBKEY : 181 ; 
09 12 000A BNEQ 11$ : ; 
000000006 8F DD 000AB PUSHL #CLIS_ABKEYW : : 
65 01 FB Bi CALLS #1, LIBSSIGNAL : 3 
000000006 8F 53 01 000B4 11$:  CMPL STATUS, #LIBS_UNRKEY ; ; 
OF 12 00088 BNEO 13$ ; ; 
000000006 8F oD Bp PUSHL #CLIS$_IVKEYW ; ; 
65 01 Fe 00¢ CALLS #1, LIBSSIGNAL ; ; 
04 11 000C6 BRB 13$ : : 
50 01 BO 00C8 128: MOVL #1, RO ; ; 
50 04 OOOCC 138 CLRL =. RO F ; 
04 000C RET : ; 
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1 1 &sbttl ‘getrestrict - parse hourly restriction ranges’ 
1 1 prover routine getrestrict (qual_name) = 
: egin 


= 
AAO 
in) 


'e¢ 
FUNCTIONAL DESCRIPTION: 

Parse hourly login restrictions for primary or secondary days 
INPUTS: 

qual_name - descriptor of qualifier name to use 


IMPLICIT INPUTS: 


PASO 
COCO ~~ 
FWN - OOONOUS 


200 


DAAAAO 
SSELER 


OUTPUTS: 
none 
ROUTINE VALUE: 


true -> successful completion 
false -> error in flag name 


000 
wr 
OONOANE WR OODNAUNE WO 


BISAR 


! 
Initialize output values. 


SIO PF AAA AOAAAO 


Inns 


primary_access = 0; 
secondary_access = 0; 


MMIVIMVVMAIMUMAI 


SSLESEALNSSS 


WS OONOULS WN —O 


Sen bee 
coco 
Sese 


' 
: Fetch value List items and parse them. 
864 while true 

do 


begin 
Reo if not cli$get_value (.qual_name, tokendsc) 
He then exitloop; 
0 
1 


tparse_block(tpa$l_stringcnt) = .tokenlen; 

7 Fperse_block tpa$l_stringptr] = .tokenptr; 

7 if not lib tperse tparse block, access_states, access_keys) 
: then return persian storie » «tokenlen, .tokenptr); 


ee eee ees 


end; 
i 
Write the modified fields into the UAF record. 


3 if not .secondary 
then 


recbufluaf$b_batch_access_p] = .primary_access; 
recbufluaf$b_local_access_p] = .primary_access; 


See Se Se Oe Se Se HH Se Se Ge Se Se Se SH Ge Ge Se Se Se Ge Se SH Se SH Ge SH Ge Se Se Ge Se Se SH SH Se Se Ss Se Ss Se Se Se oe SH Se Sean Ss Oe Sees Se esesese 
Oa ee et ed ee a el el el el el el el el el ee el el el el el cel cel eel cl el el elt el cl cl ld el el 


SNS SNS NNN 
SOON VEU —$O OONOUSWN Oo 


Waronoronononofernofrorns 


7 

7 

0 

1 begin 

§ recbuttuafsb-batch-afcess_p p] = .primary_access; 


te J 
ooono 
SRESLSSS 


oo 


NO 


— ts a 9 =» 9 a 


oo 
oO 
oo 


—————————— Orono OO eee 
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recbuf ua tgb.dialup_access_p} = .primary_access; 
poauere uafSb_remote_access_p] = .primary_access; 
en 


recbufCuaf$b_network_access_s] = .secondary_access; 
recbufluaf$b_batch_access_s] = .secondary_access; 
recbufluaf$b_local_access_s] = .secondary_access; 
recbuf ua tsp-dralup_eccess_s) = ,secondary_access; 
recbufluaf$b_remote_access_s] = .secondary_access; 


UAF PARSE .B39; 1 


~— E> 
comes 
ts a ie 
000000000 


szess 
Duwmdu 
— —» —s» 1» 
00000000 


003¢ .ENTRY GETRESTRICT, Save R2.R3.R4,R5 
55 000000006 00 9€ MOVAB TOKENPTR, R5 
4 000000006 00 9E MOVAB TOKENLEN 
53 00000000' 00 9€ MOVAB PRIMARY ACCESS, R3 
52 000000006 09 9E MOVAB RECBUF+Z72, &2 
: 7¢ CLRQ  PRIMARY_ACCESS 
000000006 00 9F PUSHAB TOKENDST 
04 ac DD PUSHL  QUAL_NAME 
000000006 00 9¢ F CALLS #2, CL ISGET_VALUE 
3 5 ‘ LBC - 
a | 64 MOVZWL TOKENLEN, TPARSE_BLOCK+8 
D8 OA 65 00 MOVL  TOKENPTR. TPARSE-BLOCK+12 
00000000' 00 9F PUSHAB ACCESS_KE 
00000000' 00 9F PUSHAB ACCESS-STATES 
CC AS OOF PUSHAB TPARSE BLOCK 
000000006 00 Q F CALLS #3, LIBSTPARSE 
cc 0€ BLBS : 
65 bp PUSHL TOKENPTR 
7E 64 3¢ MOVZWL TOKENLEN, -(SP) 
ge 0D PUSHL a 
000000006 BF DD PUSHL #UAF$_BADVALUE 
000000006 00 04 FB CALLS #4, LIBSSIGNAL 
22 10 Ad E BLBS § SECONDARY, 3$ 
0 D MOVL § PRIMARY_ACCESS, RO 
0 F INSV RO, #0,7#24, RECBUF +47 
0 F INSV RO, #0, #24, RECBUF +47 
F INSV RO. #0. #26. RECBUF +484 
0 3 F INSV RO, #0. #26. RECBUF +490 
0 3 f INSV RO, #0, #24, RECBUF +496 
50 04 Ad D VL SECONDARY_ACCESS, RO 
0 F INSV RO, #0, #24, RECBUF+475 
0 F INSV RO. #0, #24. RECBUF +481 
F INSV RO. #0. #24. RECBUF +487 
F INSV RO. #0, #24. RECBUF +4 ; 
F INSV RO, #0, #24, RECBUF +49 
1D MOVL = #1. RO 
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04 00084 RET 

; Routine Size: 181 bytes, Routine Base: SCODES + ODFE 


no_flag = false; 
‘ 
i Test for presence of the ‘NO’ prefix. If present, adjust the 


SNVLSSELEARE 


SSNS 
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vou-O08 getprimedays - get primary day List -3etn 1 8b, 13:08:10 {UAF -BUgsRe UAFPARSE.03551 ’ (16) 

3; 174 1899 1 Xsbttl ‘getprimedays - get primary day List’ : 
; 1709 1900 1 geyet rout ne getpr inedays’s Aig ; 
3 oe: 1901 egin ; 
3 174 19 3 
; 1750 1 lee 3 
: 1731 190% : 
: \? ¢ 1906 ; FUNCTIONAL DESCRIPTION: : 
He: sit Get List of day considered prime days. : 
s 7 § 1909 ! INPUTS: F 
; 172 1910 ‘ F 
: 1758 1911 ! none PF 
; 1759 1316 ! 3 
: 1760 191 ! IMPLICIT INPUTS: 3 
3; 1761 1914 ' 3 
; 1766 1915 : PDFLAG_TABLE = table of flag bit numbers and ascii names : 
; 176 1318 ' 3 
: 1764 191 ' OUTPUTS: § 
3: 1765 1918 ' 3 
: 178 1919 ! none 3 
3; 176 1920 ! 3 
; 1768 + } 2 : ROUTINE VALUE: : 
: 1770 19 6 i true -> successful completion : 
§ 4a 13 : false -> error in flag name : 
: 1798 1926 ; 
3 1774 1927 local 3 
3; 1775 1928 status, 3 
: 1776 +594 keyword_dsc : vector (2), ; 
3; 1777 19350 no_flag, : 
3; 1778 1931 code, ! return from find_val 3 
Me wR =a : 
: 1781 1934 2! F 
; HA 3 HE } Retrieve keywords as long as they are present : 
: 7 138 while cli$get_value (sd_primedays, tokendsc) do ; 
:1 19 begin : 
. | 194 keyword_dsc fo} = .tokenlen; 

3 ! : keyword_dsc (1) = .tokenptr; 

31 1 

: } 

; ad, : descriptor to remove it, and set nc_flag 

: 1795 1 if ch$eql (2, .no_dsc [1], 2, .keyword_dse (1)) 

: its 1 then 

3; 179 1950 4 begin 

: 1738 1951 4 keyword_dsc fo} = ,keyword_dsc 93 - $i 

; 17 1952 4 keyword_dsc (1) = .keyword_dsc [1] + 2; 

3% 1955 4 no_flag = true; 

: 1801 195 ; end: 

; 1802 195 


UA eanee 
v04-00 


; } 3 13 $3 a Cstetus = LibSlookup_key (keyword_dsc, pdflag_table, code)) 
3; +505 19 8 

3: 1 19 | valid flag, set bit 

; 180 1960 

3 1308 139) _, (recbufLuat$p -primedays))<.code,1> = .no_flag 
; 1816 1968 select -Status of 

; 1811 1964 set 

; \3i¢ 1965 

3 Vai 1308 ; ambiguous keyword? 

3 1815 1208 CLibs_ambkey] : signal (cliS_abkeyw); 

3 1819 199 ! unrecognized keyword? 

; 1818 1971 : 

3 + oh 1376 ClibS_unrkey] : signal (cli$_ivkeyw); 

: 1820 197 ' 

: 1821 1974 ! whatever, always return an error if we're in here 
; 18 ¢ 1975 : 

; 18 1308 Calways) : return false; 

: 1824 197 tes; 

; 1825 1978 

: 1826 1979 

: 1827 1980 

; 1828 1981 ve true; 

: 1829 1982 le 


001¢ 000 .ENTRY GETPRIMEDAYS, Save R2,R3,R4 
54 000000006 00 i 0900 ROVAB LIBSSIGNAL, R4 
a. L ri ue 
000000006 00 9F PUSHAB 
00000000' OF PUSHAB 5D_P' RIREDAY 
000000006 FB CALLS > CLISGET § VALUE 
04 AE 000000006 00 ee MOVZWL TOKE NLEN, KEYWORD_DSC 
08 AE 000000006 06 ROVL TOK ENP cr KEYWORD-DSC +4 
50 00000000' 00 »D MOVL Nor bges 
08 BE a CMPW RO), axé voonp _DSC+4 
BNEG 
04 AE C SUBL2 #2, KEYWORD_DSC 
08 AE C ADDLe #2, KEYWORD-DSC+4 
5 D MOVL #1. NO_FLAG 
& D PUSHL SP 
00000000' 00 9F PUS PDFLAG_TABLE 
OC AE OF PUSHAB k YWOR 
000000006 99 F CALLS ‘ L 1BSLOOKUP_ KEY 
D MOVL R STAT 
02 £ BLBC = STATU 
01 6E Fo INSV NO. ree. CODE, #1, RECBUF +514 
p 1 BRB 1 
000000006 8F 53 01 CMPL STATUS, #LIBS_AMBKEY 
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; Routine Size: 


getprimedays - get primary day List 


9 

000000006 ‘ 

000000006 a ; 
000000006 8F 

4 1 

4 

50 1 

50 


Routine Base: SCODES + 0EB3 


ooooo 
pefololoia) 


> 


coo -"o-OoO "O— 
oOo 
ws 
wn 


ef Fo-@won—-won 
ooooo 
ooooooco 
33s oO 
@ 
o 
ww 


oooo 


o 


an 195 18:39: ‘ UAF BUGSRETUAF PARES. 0331 


LIS 
at ores 
srATUS. oi fase _UNRKEY 


acLis IVKE YW 
» LTBSSIGNAL 


1, RO 
RO 
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true => input processed successfully 
false => error in privilege specification 


: SIDE EFFECTS: 


none 


1831 1983 1 &sbttl ‘getpriv - get process privileges’ . 
1 § 19 1 global reat ne getpriv (quel nome. privadr) = : 
: 13 5 egin : 
1 5 19 8 ‘ee ° 
1 1988 i ; 
i 5 12 9 FUNCTIONAL DESCRIPTION: 3 
1839 1991 i Process privilege mask specification and set or 3 
Hb 1338 } clear proper bits in orivilege Quadword in RECBUF. F 
in me 
1844 1 i qual_name - descriptor of qualifier name to use 
ok 1997 privadr - address to store privilege bits - 
8? 1999 IMPLICIT INPUTS: 
o4? 3001 none 
gs! 008 OUTPUTS: 
858 005 none 
855 $0 i IMPLICIT OUTPUTS: 
856 008 t 
BS pEias 
859 ROUTINE VALUE: 

i 

i 

! 

i 

! 

i 


—OCONOUE WN Oo 


MIPIM 


Loop through if this is a List and check all of the names. 
Set or clear appropriate bits depending on the ‘NO’ prefix. 


while cli$get_value (.qual_name, tokendsc) do 
begin 


SOOCSCOCOCOCSCOCOSOooCoOCCoOoSoo 


APIPOPORIPININD 


WN — SO OOO wry 


select prv$setpriv (tokendsc, .privadr) of 


set 
: Privilege name not found 


w 


Corv$_invnam): 
return LIBSSIGNAL(UAFS_PRVNOTFND, 2, .tokenlen, .tokenptr); 


Be Oe ee Se Be Se Se Se Be Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Be Be Oe ee Se OH Se Se ee Oe Oe Se Se Se Se Oe es Se es 


' 
039 ! Privilege name not unique 


eee 


| 
_—— 
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getpriv - get process privileges -0ct-1984 13 UAF .BUGSRC JUAF PARSE .832; 1 


; Routine Size: 


111 bytes, 


3 3 040 ' 

[1 O41 Cprv$_notuna): 

3 ! is peg return LIBSSIGNAL(UAFS_PRVNOTUNG, 2, .tokenlen, .tokenptr); 
: 1 38 044 tes; 

; 189 045 

> 1894 Reg end; 

: 1895 04 

: 1398 048 return true; 

: 189 049 1 end; 


003¢ 00000 -ENTRY GETPRIV, Save R2,R3,R4,R5 : 

55 000000006 0 9€ 0000 MOVAB TOKENDSC, RS 3 

54 0000290006 9E B88 MOVAB TOKENLEN, R4 : 

53 000000006 9E 00010 MOVAB TOKENPTR, R3 : 

55 0D 90017 1$ PUSHL 5 : 

04 AC DD 00019 PUSHL  QUAL_NAME : 

000000006 00 9¢ B Be0s6 CALLS #2, ELISGET VALUE 3 
45 E9 000 BLBC RO, 4 3 

08 AC DD 00026 PUSHL  PRIVADR : 

55 0D 000 PUSHL ; 

00000000G 00 2 fe CALLS #2, PRVSSETPRIV s 
Se D MOVL RO, 3 

00000000G &F 52 D1 000 CMPL R2, #PRV$_INVNAM 3 
OF 12 0003C BNEQ 2 3 

63 pd 00 PUSHL TOKENPTR : 

7E 64 3C 0004 MOVZ2WL TOKENLEN, -(SP) F 

02 DD 0004 PUSHL # ; 

000000006 bf DD 0045 PUSHL #UAF $_PRVNOTF ND : 

00000000G_ &F 38 01 D 28 CMPL Ree #PPY$_NOTUNQ : 
C1 12 00054 BNEG = ; 

64 po 36 PUSHL TOKENPTR : 

7E 4 3¢ MOVZWL TOKENLEN, -(SP) : 

2 dD 38 PUSHL # ; 

000000006 8F oD PUSHL  #UAF$_PRVNOTUNO ; 

000000006 00 04 FB 000635 3$: CALLS #4, LTBSSIGNAL 3 
04 0006A RET 3 

50 01 »o0 st¢e4 4$: MOVL #i, RO 3 

04 O006E RET 3 


Routine Base: SCODES + OF4F 


—_— ———— 
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v04-001 getuic - get user identification code ets 1538933 UAF .BUGSRCJUAF PARSE .B3 31 (18) 
: 1899 QO 1 &sbttl ‘getuic - get user identification code’ : 
; 1900 i 1 global rout ine getuic = . 
; 1901 § egin ; 
: 190 5 . 
; 190 054 ‘ee ; 
1908 $86 FUNCTIONAL DESCRIPTION 
H 1308 089 : : 
; 190 B28 : Process UIC specification ; 
; 1908 05 } ; 
; 1909 060 ! INPUTS: : 
; 1910 be) : : 
: 1911 $6 : none : 
: at 06 : ; 
; 191 064 ' QUTPUTS: ; 
; 1914 065 2 } : 
; 1915 B06 : none : 
; 1916 06 : ; 
; 1917 068 2 ! ROUTINE VALUE: ; 
; 1918 069 2! ; 
3 1919 070 : none 
: 1920 071 leo 
3; 1921 O76 
H 1356 soo 
; 136 074 
: 1924 2075 Do not allow wild card group or member numbers 
; 136? go76 
3 1926 207 
3; 1927 078 if not parse_uvic (recbuflCuaf$w arp). recbufCuaf$w_mem), false) 
3 1358 444 *hen return CIBSSIGNAL(UAF$S_UICERR, 2, .tokenlen, .tokenptr); 
3 1980 2081 true 
3 1931 2082 1 end; 


0000 00000 sENTRY GETUIC, Save nothing ; 2051 
43 4 00002 CLR =(SP) ; 2078 
000000006 F 00004 PUSHAB RECBUF +36 : 
000000006 F tt PUSHAB RECBUF +38 : 
00000000v 00 F 19 CALLS #3, PARSE_UIC ; 
1D E 4 BLBS . ; 
00000006 D 1A PUSHL TOKENPTR s 207¢ 
7E 000000006 C 00020 MOVZWL TOKENLEN, -(SP) : 
2 oD ? PUSHL @ ; 
00000000G 8F DD PUSHL #UAFS_UICERR ; 
000000006 00 4 4 3 F cats #4, LTBSSIGNAL : 
50 01 DO 00037 1$: MOVL wi, RO : 2082 
4 0005A RET : 


' 
Parse UIC and return error if invalid. 

i 

; Routine Size: 59 bytes, Routine Base: S$CODES + OFBE 


g. 


true -> no errors found _ : 
false -> error in UIC specification 


SIDE EFFECTS: 
None 


9 
UAF PARSE B-san-t9 5 17:30:1 AX-11 Bliss-32 V4.0-74 Pa 7 
v04-001 parse_uic = obtain UIC group and member -300n1 3b, 13:80i10 {UAF .BUGSRe UAF PARSE .832;1 945 
1933 083 1 Zsbttl ‘parse_uic - obtain UIC group and member’ 
1934 OB 1 global routiné parse_uic (retorp, retaen, allow wild) = 
13 2 9 5 egin 
1937 oe lee 
1938 088 : 
1372 34 FUNCTIONAL DESCRIPTION: 
1941 091 i Routine to parse and validate a UIC or directory string. 
1306 $036 } The UIC is returned as group and member elements. . 
944 094 i INPUTS: 
945 095 : 
946 09 : RETGRP - address of a word to receive the group number 
947 209 : RETMEM - address of a word to receive the member number 
aes Shoe ALLOW_WILD - TRUE => allow wild card group/member numbers 
950 100 ! IMPLICIT INPUTS: 
B26 TOKENPTR = address of first character past delimiter 
994 0 i OUTPUTS: 
956 0 RETGRP and RETMEM receive group and member numbers if 
HHA 4 no errors are encountered. 
939 0 IMPLICIT OUTPUTS: 
+d none 
ans ROUTINE VAUE: 
: 
i 
' 


SLLSFSE 
-—Oo0@n 


. Crank UIC through tparse 


oovoo 
~NN™N 
ws 


tparse_block Ftpast_stringent = ,tokenlen; 
tparse tiock [tpa$l_stringptr] = .tokenptr; 


if not LibStparse (tparse_block, uic_states, uic_keys) 

then return false; 

if .converted_uic<00,16> gtru uicSk_wild_msember 

or .converted_uvic<16,16> gtru uvicSk_wild_group 

then return false; 

if not .allow wild 

then E . E 
if .converted_wic<00,16> eqlu uicSk_wild_member 
or .converted vic<16,16> eqlu uicSk_wild_group 
then return false; 


3oo 
C2 02 Od Od CD OD SW 
Ne tet tt PP 
A. MPOPOROROPORO Ronny — 
WN 0 ONO UWF WH 0 ONO UE WN SO O@NOUFWHR— 
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a ee ee ed ed ed ed 
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; 1990 140 ‘ 

5 Hb a re UIC was successfully parsed. Return correct data, clus true indicaton. | 
3 1998 128 

> 1994 144 (.retgrp)<0,16> = .converted_uic<16,16>; 

: 1995 145 (.retmem)<0,16> = .converted-uic<0, 16>; 

3; 1996 2146 return true; 

; 1997 14 1 end; 


0004 00000 .ENTRY PARSE_UIC, Save R2 : 

52 00000000" 00 9€ 00002 MOVAB CONVERTED_UIC, R2 : 

E4 A2 000000006 00 3¢ 00009 MOVZWL TOKENLEN, TPARSE_BLOCK+8 : 
E8 A2 000000006 99 D0 99011 MOVL TOKENPTR, TPARSE-BLOCK+12 : 
00000000" 00 9F 00019 PUSHAB _KEYS ; 

00000000" 00 9F O001F PUSHAB UIC™STATES : 

DC A2 99F 00025 PUSHAB TPARSE BLOCK : 

000000006 00 9 FB 0028 CALLS #3, LIBSTPARSE ; 
¢9 0 : O02F BLBC ™ : 

0 02 Ae C 00632 MOVZWL CONVERTED UICc+2, RO : 

SFFF OOF 50 B1 00036 CMPW RO, #16383 : 
1— 1A 00038 BGTRU : 

OE Oc aC €8 00030 BLBS $ ALLOW WILD, 1$ : 

FFFF = BF 6¢ B1 00041 CMPW = CONVERTED_UIC, #65535 : 
13 13 00046 BEQL : 

3FFF OF 50 Bi 90048 CMPW 3S soRO, «#16383 : 
0c 13 00040 BEQL : 

04 BC 50 BO OOO4F 1$ MOVW RO, @RETGRP : 
08 BC 62 B80 00053 MOVW § CONVERTED_UIC, @RETMEM : 
50 01 p0 0005 MOVL #1, RO : 

04 0005A RET : 

50 D4 00058 28: CLRL = RO : 

04 0005p RET ; 


; Routine Size: 94 bytes, Routine Base: S$CODES + OFF9 


3 
b-san-19 5 10: 30:1 AX~11 a V4,0-74 
parse wild = parse wildcarded user specificatio 2-0ct-1984 13:01:71 UAF .BUGSRC JUAF PARSE .832;1 


<c 
ez 
wm 
vw 
BS 
Zz 
-_o 
mn 


S33 2 


IMPLICIT OUTPUTS: 
The following boolean variables are decided: 


1 148 1 &sbttl ‘parse_wild - parse wildcarded user specification’ 
149 1 global routine parse_wild (desc_addr,nulideiault) = 
1 egin 
o0¢ 151 
00 1 § ++ 
004 1 : 
iF ; 4 } FUNCTIONAL DESCRIPTION: 
007 1 i Parse one of six methods by which User Authorization File 
008 1 } records aay be specified. This routine defines boolean 
898 : } variables for input to the WILD_USER routine. 
011 1 i INPUTS: 
a 1 : 
01 1 : DESCADDR Address of the token string descriptor 
Bie ’ : NULLDEF AULT TRUE => A null user specification defaults to * 
$oi$ ; IMPLICIT INPUTS: 
$18 ; The parsing variables NEXTTOKEN, TOKENLEN, and TOKENPTR are modified. 
ost ! OUTPUTS: 
$§ none 
2 
$e 
$3 
e7 
28 
4 


Ooooooocoo 


GRP_WILD = Group wild card (implies UIC_FLAG) 
MEM_WILD = Member wild card (implies UIT_FLAG) 
STR_WILD - all users alphabetically (implies NOT UIC_FLAG) 


RECBUF = The appropriate keys are initialized 
ROUTINE VALUE: 
If the byntes does not follow one of the six methods the routine 


returns FALSE. The outputs are meaningful only when the value 
returned is TRUE. 


SOOOSSSSo00 
BISA AG— SS 


Ww 
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i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
UIC_FLAG = UIC form (instead of username) 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


FREE 


MEW" O OSwNO Un Fwt 00 


Identify the next token in the command buffer. 


if not cli$present (.desc_addr) or 
not cli$get_value (.deSc_addr, tokendsc) or 
-tokenlen eq. 0 


RRREK 


then 
if not .nultoefault 


en 
' return LIB$>1GNAL (UAF$_NOUSERSPEC) 
e 
begin 


PORORoRofononononononofononononunonononenononononononononononononononony: 


wn 0@ UPwn— 


ERROR OPOROROROPOROPORORONONOPOROPORONONOPONOPOR: Pononononunononononunyd 
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v04-001 parse wild - parse wildcarded user specificatio et 18: 3%: 13 UAF .BUGSRC UAFPAR E.8 30769351 - (28) 

3 036 05 uic_flag = false; s 
; 20 0 grp_wild = false; : 
: B28 mem_wild = false; ; 
; 20 5 str_wild = true; 5 
; 2060 0 match_token = ‘#' 3 
; 2061 10 match_tokenlen = 1; 3 
; be8 1} return true; : 
3 en 3 
3: 2064 ig else 3 
; 2065 14 begin g 
; $ 12 senemen = peenentene : 
3 okenptr = .tokenptr; 3 
; bee é i3 end; : “ : 
i i : 
> 2071 0 2! : 
3 Ors . } Decide whether a UIC or a Username form was used. : 
> 2074 ; 
3; 2075 2294 if .(.tokenptr)<0,8> eql 'C' 3 
; Bre $2 then : 
; 207 $ begin 3 
; 2078 § 3 
3 Onp § 3 7 8 not parse_wild_uic ( .tokenlen, .tokenptr ) : 
: 3 4 return LIBSSIGNAL(UAFS_INVUSERSPEC, 2, .tokenlen, .tokenptr); ; 
> 208 2 end : 
3; 2084 $536 else ; 
; 2085 2234 begin 3 
; 2086 2235 vic flag = false; 3 
; 2087 2236 grp_wild = false; 3 
3 OBS i mem wild = false; 

: 2090 39 

3 44 266 Decide whether or not the Username is wildcarded. 

: 209 4 ; 

3 Boe tg if not ch$fail (ch$find_ch (.tokenlen, .tokenptr, '*')) 

3 or 

3 44 °2 nat shetett (ch$find_ch (.tokenlen, .tokenptr, '%')) 

3 2098 23 : - by account 

ae BO arg 

; n 

3; 2101 50 4 ae ch. tohenton = ,tokenlen 

3 108 51 4 chSnove -tokenlen, stahenete. match_token); 

3; 210 2¢ 4 str_wild = true; 

3: 21046 53 4 end 

: 2105 54 3 else 

3 108 55 4 begin 

3; 210 3$ 4 str_wild = false 

:; 2108 57 4 ch$topy (. eahenton -tokenptr, Echar (° *) 

3; 2109 8 4 uaf$s username, recbufCuaf$t _username)); 

: 2110 5 end; 

3 2111 60 end; 

3 2112 61 


UAF PARSE 
V04-001 


ng 


parse_wild = parse wildcarded user specificatio ' 


3585 f tna! 


66 


66 


000000006 


000000006 


000000006 
000000006 


58 


00000000v 


000000006 
04 


OA 08 
. 000000006 


000000006 


000000006 


gp 000000006 
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om 


4 
004 


—moor 


unm 


Pet 


SOOOCO 


O@@@o@cm~ 


AFRO VN 


p ae 
-Oct-1 


3$: 


4$: 
A6 


y 5$: 


abe 15:58:10 


-ENTRY PARSE WILD, Save R2,R3,R4,R5,R6,R7,RB,R9,= 
UIC“FLAG, R11 


AX-11 Bli 
UAF .BUGSR 


s 
C 


=32 V4.0-74 


UAF PARSE .B32;1 


MOVAB LIBSSIGNAL, R10 
v STR WILD, R9 

MOVAB iat RB 

PUSHL 

CALLS . va I SPRESENT 

PUSHAB TOKENDSC 

PUSHL DESC ADDR 

CALLS #2, ELISGET VALUE 

BLBC =—Er—s«aRO;,_ 1 

TSTw § TOKENLEN 

BNEQ 3$ 

BLBS § NULLDEFAULT, 2$ 

PUSHL au UAF $_NOUSERSPEC 

CALLS . LIBSSIGNAL 

CLRL —UIC_FLAG 

CLRL  GRPTWILD 

CLRL “WILD 

MOVL “STR WILD, 

MOVL ATy MATCH 

MOVL #1, MATCH A TORENLEN 

BRB 9S" 

MOVZWL TOKENLEN, R7 

MOVL  TOKENPTR. R6 

CMPB = s«(R6), #94 

BNEQ 

PUSHL R 

PUSHL R 

CALLS #2, PARSE_WILD_UIC 

BLBS os 

PUSHL  TOKENP 

MOVZ2WL T KENLEN, -(SP) 

PUSHL 

PUSHL #UAF$_INVUSERSPEC 

CALLS #4, LIBSSIGNAL 

CLRL —sUIC_F LAG 

CLRL RP“WILD 

CLRL mER au D 

LOCC} =—«-_ «#42 (R6) 

BNEQ 5$— 

CLARL sR 

TSTL = RY 

BNEQ i 

LOCC 7, R7, (RO) 

BNEQ 68 
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3] f4 C4 CLRL R1 

1 OD ce 6$: TSTL R1 

14 1 C BEQL Hy 

000000006 00 7 : CA 7$ MOVL R?, MATCH_TOKENLEN 
900000006 00 98 7 D1 MOVCS R7, (R6), MATCH_TOKEN 4| 
6 1 p 09 MOVL #1, STR_WILD 
oc BRB 98 
b4 DE 8$: CLRL STR_WILD 
20 20 66 7 2 E MOVCS R7, (R6), #32, #32, RECBUF +4 
000000006 00 ote 
0 1 00 QOCEA 9$: MOVL #1, RO 


; Routine Size: 238 bytes, Routine Base: S$CODE$ + 1057 
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11 64 1 Usbttl ‘parse _wild_uic - parse wildcarded VIC’ 
119 65 1 Zs al routine parte.wild ule ( strlen, strptr ) = 
118 6 egin 
119 6 
; 6 lee 
: 79 FUNZTIONAL DESCRIPTION: 
1 % Parse the uic methods by which User Authorization File 
1 7 records ~~ be specified. This routine defines boolean 
; ie variables for input to the WILD_USER routine. 
1 8 INPUTS: 
1 7 
1 78 STRLEN = Length of UIC string 
; 4 STRPTR = Address of UIC string 
1 Hi IMPLICIT INPUTS: 
1 Hf 
1 8 
1 84 OUTPUTS: 
86 : 
rue = success 
2087 False - failure 
8 IMPLICIT OUTPUTS: 


The following boolean variables are decided: 


UIC_FLAG = UIC form (instead of username) 

GRP_WILD = Group wild card (implies UIC_FLAG) 

MEM_WILD - Member wild card (implies UIC_FLAG) 

STR_WILD = all users alphabetically (impTies NOT UIC_FLAG) 


RECBUF = The appropriate keys are initialized 
ROUTINE VALUE: 
If the ayntes does not follow one of the six methods the routine 


returns FALSE. The outputs are meaningful only when the value 
returned is TRUE. 
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, a te ~SSesys 
OWDBNAVEWIN —$O OONOAUES WN (OO DONOAUFWR (OO ODNAUSWN SO 


ue; 


vic_flag = tr 
= false; 


str_wil 
' 


Crank UIC through tparse 


tparse_block [tpa$l_stringcnt] = .strlen; 
tparse_block ([tpa$l_stringptr] = .strptr; 


7 not Lib$tparse (tparse_block, uic_states, uic_keys) 
en 


RIPIMIPININININININIPINDPIPINININIPIPIPIPINIPINIPIPIPIPIPIPUPIPININOPPOPONY: 


ea ee a ae a ee ee a a ee ed a ed ed ed ed ad 
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return false ; 
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parse wild_uic = parse wildcarded UIC 


—_ 
—~ 
Ww 


! 
Decide whether or not the Group subfield is wildcarded. 
it .converted_uic<16,16> eql uicSk_wild_group 

en 


—~ 
Fo 


begin. 

grp witd = true; 
recbufluaf$w_grp) = 0; 
end 

else 


begin 

grp_wild = false; , 
recbufCuat$w_grp3 = ,.converted_uic<16,16>; 

end; 

' 

; Decide whether or not the Member subfield is wildcarded. 


4 -converted_uic<0,16> eql uicSk_wild_member 
en 

begin 

mem_wild = true; 


i Whether it is wildcarded or not this subfield is initialized 
for the wildcard processor. 


(A ce cl ee ce el ce ce cee cl el eld el eld 
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im 
ooo 
wn 
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recbufCuafSw_mem] = 0; 
nd 


e 
else 

begin 

mem_wild = false; 


recBufCuafSw_mem) = -converted_uic<0,16>; 


oO 
SSLESE 
OOWDNAMNE WN OO ONOA NEW 0 OO NOAUE WN OO OONOU SW 
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end; 
return true : 
end ; 


rear piers 
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003C eENTRY PARSE_WILD yic. Save R2,R3,R4,R5 
5 9E MOVAB MEM_WILD, R 
4 MOVAB GRP WILD, R4& 
BuF +38, R3 
ad ot VIC, R2 
v #1, UIC_FCAG 
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S3ss 
msossss 
ooo 
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000000006 D L 
000000006 bs CLRL STR_WIL 
E4 2 D mova STRCEN, TPARSE_SLOCK+8 
ea mene 
. F PUSHAB UIC"STATES 
oc F C PUSHAB TPARSE_3LOCK 
000000006 00 05 FB F CALLS #3, LIBSTPARSE 


w>p 
ow 


; Routine Size: 


parse wild_uic = parse wildcarded UIC 
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SCODES + 1145 


a8 eed 


ag 


ROe"RE RECBUF +36 
#1, RO 


RO 


oc 


2360 


sc 


kK 9 
uarranse getstring = get string trom input sapet=t98e 15:50:10 EOF Leuesne Soar pARse.033; 1 Pane 28) 


1 1 Esbttl ‘getstring - get string from input’ 
88 
by 


1 global routine getstring (addr, maxsize, type) = 
egin 
'ee 
' 


: FUNCTIONAL DESCPIPTION: 


— — 3 2 


VEN" OODNOUE WN “OVOOVNOUS 


This routine reads a string variable and stores it as 
a blank filled or counted osee in the field supplied. 
The first character is checked to see if it is a quote 
or double quote and if so, a different terminator 

set is used so that embedded blanks may be contained 

in the string. 


! INPUTS: 


ADDR = address to store fle 
MAXSIZE ” 3'20 of field in which greene wiit be stored. 


i 
' 
i 
' 
i 
' 
i 
i 
i 
i 
' 
i 
; f this is a counted string, the maximum input 
: acceptable is MAXSIZE - 1 
3 TYPE = string type, either COUNTED_STRING or FILLED_STRING 
: : IMPLICIT INPUTS: 
9 : none 
40 a : 
ol 8 ! OUTPUTS: 
¢g 9 ; 
& 90 ; none 
ae 91 : 
45 4 ! IMPLICIT OUTPUTS: 
46 39 : 
94 ; none 
95 : 
My ; ROUTINE VALUE: 
358 ; true => string inserted successfully 
99 : false -> string too long 
400 : 
: SIDE EFFECTS: 
} none 


if .type eql counted_string 
then 

maxsize = .maxsize - 1; 
if .tokenlen gtr .maxsize 
then 


return 
LIBSSIGNAL(UAFS_INVSTR, 2, .tokenlen, .tokenptr); 


if .type eql counted string 
then 


POPIPRIPIPOPININIMININIPADININIF INIPIPIPINININIPYAIPOny 
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UAF PARSE b-san-19 5 17:30:1 AX=11 Bliss-32 V4.0-74 
v04-001 getstring - get string from input -0¢ t-1984 13:09:10 {UAF euesRe UAFPARES.039;1 


: 2271 aig begin 
: ye 41 (,addr)<0,8> = .tokenlen; 
: 7 420 ch$copy (.tokenlen, .tokenptr, Schar (blank), 
; 74 421 -maxsize-1, .addr+1); 
3 75 4 ¢ end 
3 8 4 lse 
3: 227 424 ch$copy (.tokenlen, .tokenptr, Zchar (blank), 
: 78 425 -maxsize, .addr); 
3 79 4 § return true; 
; 2280 4 end; 
OOFC 000 eENTRY GETSTRING, Save R2,R3,24,R5,R6,R7 : 
57 00000000G 00 9€ 0000 MOVAB TOKENLEN, R ; 
56 000000006 00 9€ MOVAB TOKENPTR, R6 F 
4 D4 8 CLRL R4 : 
01 0c ag 01 CMPL TYPE, #1 $ 
12 § BNEQ 1$ : 
4 +) INCL RG 3 
08 A 4 A DECL MAXSI é 
50 g C D 1$ MOVZWL TOKENLEN, RO 3 
08 AC 0 01 0 CMPL RO, i F 
14 15 4 BLEQ rs 3 
$6 dD 6 PUSHL TOKENPTR 3 
dD 8 PUSHL ny 3 
02 OD A PUSHL a z 
0000U000G 8F ODD PUSHL MUAFS_INVSTR é 
000000006 00 04 fe CALLS #4, LTBSSIGNAL : 
50 04 «OA 0 A 23 MOVL ADDR, RO 3 
26 6 MOVZWL TOKENLEN, Re 3 
5 6 D 1 MOVL TOKENPTR, R : 
11 4 4 BLBC , 3 
60 52 7 MOvVB Ree (RO) 3 2419 
51 08 iA 2 § A SUBL #1, MAXSIZE, R1 3; 2421 
51 20 é “ 32 C f movCS R2. (R3), #82, RI, 1(RO) ; 
of 11 0056 BRB 4$ ; 2616 
08 AC 20 63 25 2c c 3$: MOVCS R2, (R3), #32, MAXSIZE, (RO) 3; 2425 
50 01 00 SF 4$: MOVL #1, RO : 24 
Be nite RET : $238 


3; Routine Size: 


99 bytes, Routine Base: S$CODES + 114 
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04-00 getval - get numeric value from user “0c t-1984 1 UAF .BUGSRC JUAF PARSE .832; 1 
; Hf $e § 1 Zsbttl ‘getval - get numeric value from user’ 
; 24 1 global routine getval (addr, size) = 
; 450 gin 
3 5 431 
: & 'ee 
: 228 4 : ‘ 
3 os : ; : FUNCTIONAL DESCRIPTION: 
: 2290 4 i Routine to return binary value for next ASCII decimal 
$ 91 4 ‘ number in the input stream. 
; 3 438 ‘ 
3 9 439 ' INPUTS: 
3 94 440 : 
> 2295 441 : ADDR = address to return converted value 
: 39 " SIZE = size in bits of field in which to return value 
: 2298 444 > | IMPLICIT INPUTS: 
s 99 445 4 
3 300 ry, NEXTTOKEN = contains address of delimiter preceeding the number 
: Hs 448 ' QUTPUTS: 
: 304 3450 ! field described by ADDR and SIZE receives binary value 
: 2306 45 i IMPLICIT OUTPUTS: 
: 2307 45 ! 
; $05 454 ' none 
; 2455 ‘ 
3 319 re : ROUTINE VALUE: 
: 31§ 458 i true -> value converted successfully 
3; 231 459 ! false > non-numeric character encounted before next 
3 14 460 : delimiter found 
3 15 461 ‘ 
; 16 46 ' SIDE EFFECTS: 
: 17 46 : 
3 319 ree: If error is encountered, an error message will be printed. 
: 2320 4 ine ; 
3 1 te? 
g ; 468 local 
3 469 value; ' for value returned 
: 4 470 ' by CVTNUM routine 
3 5 471 
: $359 258 $i check ¢ l Lied 
: ! Check for no valve supplie 
: : 474 : - 
: 475 
; 47 if .tokenlen eql 0 
3 1 47 then 
3 § 28 return LIBSSIGNAL(UAFS$_NOARG, 2, .tokenlen, .tokenptr); 
; 6 ' 
: s rt Convert to dec‘mal. Report error if any non-numerics encountered. 
: 48 ; 
; 33 if mot cvtnum (.tokenlen, .tokenptr, 10, value) 


UAF PARSE 
v04-001 


le i ee hh ee Th 


51 


-value<.size - 1, 32 - 
return LIBSSIGNAL(UAF$_VALTOOBIG, 2, .tokenlen, 


He htt ey gt ay 9 


getval - e numeric value from user 
wr return LIBSSIGNAL(UAFS_BADVALUE, 2, 


check that the value tupplied is within the size of 
the field to be stored. 


Finally, store the value in field specified . 


-Size> = .value; 


000000006 


7E 
00 
OF 
7€ 
000000006 


08 


600000006 


-size + 1> neq 0 


So 
So 
—_ 


Cooooocooo 
oooooooSo 


2 I IOO 


OOOCCCOOCSCSCCSosoooo 


SoSooococe 
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PATIIIN E> S~ 
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FDIC COUN SO NCaWno99 $SCOVONMoONmMmMmoa 
ww 
bad 


OFNOOWS MOO —-VGIWIM Wooo -TC C99 SwWwnvovo 


Sooooooooooocoooooo 


3 


aH Rene nite 2 “33.1 


-tckenptr); 


-tokenptr); 


GETVAL, Save R2,R3,R4 
TOKENLEN, R4 
TORENBTR, R3 
TOKENLEN, RO 


TOKENPTR 
RO 


#2 
HUAF $_NOARG 
3$ 


SP 
#10 


TOKENPTR 
HS gars 7, -(SP) 
#4, CVINUM 


hi KENP 
TOKENLEN, -(SP) 


# 

#UAF$_BADVALUE 
$12 

S ite Bes Re 

i ko” VALUE . RI 


Hh KENP 
TOKENLEN, -(SP) 


4 
#UAF$_VALTOOBIG 


#4, LIBSSIGNAL 


UAF PARSE -Jan-1985 1 3] AX-1 iss- 
V04- Oot getval = get numeric value from user B-Jan-19 4 153 34: 13 UAF. puesRe UAT PARSE 63 B32;1 
06 «BC 08 AC 00 6— FO $006 4$: INSV VALUE, #0, SIZE, @ADDR 
50 01 D0 000 MOVL = #1, - RO =o 
04 $0078 RET 


; Routine Size: 121 bytes, Routine Base: $CODE$ + 1227 
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. ; b-Jan-19 5 10:30:13 y 
cvtnum = convert decimal ascii to binary -0¢t-1984 13:01:71 UAF .BUGSRC JUAF PARSE .832;1 


23 1 Zsbttl ‘cvtnum = convert decimal ascii to binary’ 
1 routine cvtnum (size, adr, radix, valadr) = 


begin 


'ee 
! 


i FUNCTIONAL DESCIRPTION: 
Routine to convert ascii digits to binary. 
INPUTS: 


SIZE = number of digits in input buffer : 

ADR = address of the buffer containing ascii digits 
RADIX = radix of number to be converted 

VALADR = address of longword to receive converted value 


IMPLICIT INPUTS: 


MIPIM 


DVPUPV PV PV SV SVSVSUSUSUSVSVSVSISISISISE FISISIS 


IN AOROPOROPONoNUfUn In OOO 


WIN $9 OBNAMVE WN $0 CONIA UES WN OOOO 


: i : 
: i : 
; i ; 
. ' . 
: i ; 
: : 
: i ; 
. ! 5 
: i : 
; i : 
3 : : 
3 ie none 
: 81 | QUTPUTS: 
: 388 longword pointed to by VALADR receives converted value . 
; 385 3 i IMPLICIT OUTPUTS: 
: 389 $33 i none : 
; 2388 53 ‘ : 
3 4 az¢ } ROUTINE VALUE: : 
: 2391 336 i true -> value successfully converted ; 
$ ; 23f false -> non-numeric encountered before end of string : 
; 3 3% 339 i SIDE EFFECTS: : 
; 96 541 i none : 
; 239 2%8 !<- ; 
; 2398 54 : 
; 2399 544 bind F 
: rts 32 sum = .valadr; ! address ref scaler : 
: 260 229 
: 240 248 sum = 0; ; 
: 2406 4 : 
: 2405 550 H > a3. ; 
: vty 33) : Loop thorugh buffer. Stop on end of string or non-decimal digit. : 
: 2408 838 5 
: mt 233 er i from .adr te (.adr + .size - 1) : 
3 0 3 
3; 2411 5 § begin 3 
; £16 5 hotel 
Be BRE belt : 
; 2616 561 digit = .(.i)<0,8>; : 


; Routine Size: 69 bytes, Routine Base: S$CODE$ + 12A0 


10 
UAF PARSE B-Jan-19 5 17: AX-11 Bliss-32 v4.0 Pa 93 U 
v04-001 cvtnum = convert decimal ascii to binary et) ae 13: 34; 13 UAF .BUGSRC JUAF PARSE . “ 31 es v 
: 2617 6 3 
: 7i8 6 ' 3 
3 £33 rt: Check validity of digit depending on radix : 
 $2s) é 
3 24 : 6 if ch$fail (pointer = ch$find_ch (.radix, numbers, .digit)) : 
: 26426 5 then 5 
3 2425 570 return false ; 
3: 2426 571 lse 3 
3; 2427 276 4 sum = (.sum*.radix) + (.pointer = numbers) ; 
; 2428 ef end; 3 
3 2429 74 : 
$ st 0 575 A vay true; 3 
: 2431 2576 1 end; $ 
003C 00009 CVTNUM: .WORD Save R2,R3,R4,R5 : 2 
55 00000000" 00 9€ 90002 MOVAB NUMBERS, R5 ; ; 
10 BC 04 000 CLRL @VALADR 5 3 
54 08 AC 04 AC C1 0000 weld SIZE, ADR, R4 : b4 
53 08 AC a1 C3 0001 SUBL3 #1, ae : ; 
1 11 0001 BRB 3$ 3 3 
50 93 3 00019 1$ MOVZBL (I) 3 3 
65 0c AC 0 3a 0001C LOCC bight. TOADIX, NUMBERS : ; 
Q¢ 12 Bao 1 BNEQ 2 } 3 F 
1 04 000 H CLRL R1 3 é 
51 0D 0025 2$ TSTL POINTER 3 é 
19 13 00027 BEQL 4$ ; 3 
52 10 BC oc AC C 0029 MULL3 RADIX, @VALADR, R2 : ; 
50 65 9E 0002F MOV NUMBERS, RO : ; 
51 50 C + ¢ SUBL RO, R1 ; : 
10 BC 26 4 C 0 ADDL R1, R2, @VALADR 3 é 
dB 5 4 Fs OO3SA 3$ AOBLSS R4, I, 1$ ; : 
50 01 p 003€ MOVL #1. RO : : 
4 00041 RET 5 : 
50 Be 00042 4$ CLRL RO 3 § 
4 00044 RET ; ; 


10 
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LEARNS so 
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Asbttl "PASSWORD MACROS -- for N-ary passwords’ 


14 
' 


i FUNCTIONAL DESCRIPTION: 


These macros and the routines that follow allow for 
the use of any number of passwords. At the time of 
this tik? only two ser raery and secondary) pass- 
words were in effect. When a change is made to the 
number of passwords, it will be necessary, only, to 
update the argument List macros below. 


macro 
SNARY LIST = 'PRIMARY', '', ‘SECONDARY’, '2' %, 
SN_LIST = i "2" 2; 


macro SPASSWORD(n) = Xname('PASSWORD_',n) %; 
macro S$PRESENT(n) = Xname('PRESENT_'snd %; 


macro OWN _PASSWORD(n] = 
own $PASSWORD(n): block(DSC$K_D_BLN, byte) 
preset (CDSC$B_CLASS] = DSCSK“CLASS_D); %; 


OWN_PASSWORD($N_LIST); 


UAF PARSE B32; 1 


! The remainder of the text will need no modification for W-ary passwords 


Oo 


PAA AAAAAAO 


PAAA AO 
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UAFSGENERATE == Generate random passwords b-Jan-1985 15:89:18 UAF BUCSR SSuat phase o 8 


Rsbtyl "UAFSGENERATE == Generate random passwords’ 
1 sh ne UAFSGENERATE = 


'¢¢ 
FUNCTIONAL DESCRIPTION: 
Decide which passwords to generate 
! INPUTS: 
none 
IMPLICIT INPUTS: 
CLISGET_VALUE (Zasc id'GENERATE_PASSWORD') 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
Places new values in SPASSWORD(n)'s 
ROUTINE VALUE: , 
none 
SIDE EFFECTS: 
none 


eet Re Re te te tet et et ee ee te te ee 


own WHICH: block(DSC$K_D_BLN, byte] preset (CDSC$B_CLASS] = DSCS$K_CLASS_D); 


macro Active PASSWORD (n) 

ch$ne cenbaes UAE $ “PUuD* sn). RECBUF CZname("UAFSQ_PWD',n)], C, 0, 0) 2%; 
macro WHICH_EQLCTHIS 

ch$eql ( “WHI CHEDSC Su LENGTH, .WHICHCDSCSA_POINTER), 
ounk (TNS) upl ieisesctt Istring(THIS)) ) %; 

macro GENERATE coer PASSWORDCTHIS 

if ¢ — PA $S90RD (n) 739 nd. (FALSE or WHICH _EQL(*CURRENT"))} 
or uiiCH Fal CTH "BOT ‘ALL en 
UTHORI 2¢ (GENERATE CSPASSWORD (A) © uplit(Zascii THIS), %charcount(THIS)) 


tee 
SPASSWORD(n) CDSCSW_ LENGTH) = 0; 2; 


CLISGET VALUE (Zascid'G aoe Ur aedh WHICH); 
GENERATE _NEW_PASSWORD ( LTS) 


return TRUE; 
end; 


UAF PARSE -Jan~1 1 :1 AX-11 Bliss-32 v4.0-74 P 
v04-001 UAFSGENERATE == Generate random passwords BJan-1985 15: af: 13 UAF .BUGSRC JUAF PARSE .832;1 age 238 


-PSECT SPLITS,NOWRT ,NOEXE,2 


4F 57 53 53 461 SO SF 45 56 41 52 45 af 45 $7 O4E0 P.AFI: .ASCII \GENERATE_PASSWORD\<0><0><0> : 
o1 anit 4F4 P.AFH: .LONG 17694737 : 
0000000' 004F8 -ADDRESS P.AFI : 
00 54 5 45 52 5 4 4FC P.AFJ: ASCII  \CURRENT\<0> : 
00 59 52 41 4D 4% 5 04 P.AFK: ASCII \PRIMARY\< : 
68 54 4F 4% c P.AFL: .ASCII \BOTH\ : 
00 4c 4C 4 10 P.AFM: . ASCII \ALL\<O> 3 
00 59 52 41 4D 4 2 5 14 P.AFN: . ASCII \PRIMARY\<0> : 
00 54 4E 45 52 3g 4 OS1C P.AFO: .ASCII \CURRENT\<0> : 
00 00 00 59 52 41 46 4E GF 43 45 5 905 4 P.AFP: .ASCII \SECONDARY\<0><0><0> : 
48 54 4F 42 00530 P.AFQ: . ASCII \BOTH\ 3 
00 4c 4c 41 00534 P.AFR: ASCII \ALL\<O> : 
00 00 00 59 52 41 44 4E 4F 43 45 53 00538 P.AFS: . ASCII \SECONDARY\<0><0><0> : 
-PSECT SOWNS,NOEXE,2 
00# 00114 PASSWORD_: 

~BYT hee 3 
02 oot) “BYTE 3 

4 

00# borie PASSWORD 3 

gcs2 3 
02 O011F “BYTE ; 

0120 -BLKB 4 
O0O# 00124 WHICH: .BYTE 0[3) : 
02 00127 -—BYTE 2 3 

00128 -BLKB 4 


«PSECT SCODES,NOWRT,2 


~ WORD Save R2,R3.R4,R5,R6 ; 2610 
56 00000000V MOVAB AUTHORIZE GENERATE, R6 ; 
35 90000000" MOVAB P : 
4 00000000' VAB WHICH. R& ; 
PUSHL 4 : 2659 
PUSHL R5 3 
990000006 00 CALLS #2. » CLISGET VALUE ; 
00 00 000000006 00 CMPC RECBUF+340, #0, #0, a#*x00000000 > 2660 
00000000 : 
BEQL 1$ 3 
50 04 MOVL  WHICH+4 : 
07 00 60 ws CMPCS WHICH, {Ros #0, #7, P.AFJ ; 
BEQL = 28 : 
50 04 MOVL.  WHICH+4 : 
07 00 6 “ CMPCS WHICH, tres. #0, #7, P.LAFK ; 
BEQL és S ; 
50 04 MOVL WHICH+4, RO 3 


UAF PARSE -Jan-1985 1 21 AX=-11 Bliss-32 v4. 2 97 
v04-001 UAFSGENERATE == Generate random passwords B-an-19 4 15: 3? 13 LOAF BUGSREIUATPARSS 64 832;1 ae (26) 


00 60 WHICH, (RO), #0, #4, P.AFL 


50 WHICH#4, RO 
00 60 WHICH, (RO), #0, #3, P.AFM 
i 
a7 


jae 
SSWORD 
fs. AUTHORIZE_GENERATE 


PASSWORD 
00 000000006 #8, RECBOF+348, #0, #0, a#*x00000000 


00000000 
04 
28 
04 
30 


5$ 
WHICH+4, RO 
00 WHICH, (RO), #0, #7, P.AFO 


6$ 
WHICH+4, RO 
WHICH. (RO), #0, #9, P.AFP 


SSSSSSE ISIS 


OOoQoooo0oo 
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6$ 
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. RO 
00 WHICH, (RO), #0, #4, P.AFQ 


COooooo 
oor 


ooooo 
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6$ 
WHICH+4, RO 
WHICH, (RO), #0, #3, P.AFR 
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a9 
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Soooooocoooo 
SSssssssss 
o o 
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PASSWORD 2 

#3, AUTHORIZE_GENERATE 
PASSWORD_2 
50 #1, RO 
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; Routine Size: 206 bytes, Routine Base: $CODE$ + 12€5 
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GETPASSWORD = get user password fe Jonniges 15: 3¢: 10 


Zsbttl 'GETPASSWORD - get user password’ 
Pg GETPASSWORD = 


e+ 


FUNCTIONAL DESCRIPTION: 


Action routine to process password. 


none 


IMPLICIT INPUTS: 


none 
IMPLICIT OUTPUTS: 

sets hashed password field in recbuf 
{ ROUT INE VALUE: 


true -> success 
false => failure 


i SIDE EFFECTS: 
none 


USER OSC: $bblo 
REC_“* SYPT pst: SPlockt82; 


macro LOCAL_PRESENT(n] = 
local SPRESENT(n): initial (TRUE); q; 
LOCAL _PRESENT(SN_LIST); 
What are the passwords 7??? 


if ELIGPRESENT (58, PASSWORD) eql CLIS_NEGATED then 


e 
Sere BLANK _PAS woroen}. = SPRESENT(n) = FALSE; 2; 


BLANK _PASSWORD($N_LIST) 
e 
else if cusornesent (ap passuone) then 
begin 


AX-1! Bt ies -32 V4.0-74 
UAF. BUGSRC) UAF PARSE .B32; 
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macro GE1l_ Pass 
SPAS Aas 
SPRESENT(n) = 


GET  PASSUORD CSN. L 
end; 


GTH) 
NTER) A, 
VALUE(SD_PASSWORD, SPASSWORD(n)); &; 


: When is it being changed 7??? 
SGETTIM(timadr=TIME_BUF); 
: If this is a new password ... 


if ,RECBUFCUAFSW SALT) eql 0 t 
RE CBUF CUAF SW SALT) = . TIME tBu <3e8, 16>; 


Find the length of the username 


LANK)), ret (UAESS glSERNAME) . RE CBUF CUAF $T_USERNAME }); 
NGTH) = UAF$S UBERR RO; 
INTER) = RECBOF SAFST e USERNAME); 


ane 


: Check the new passwords for syntax 


begin 
macro CHECK_PASSWORD(n) = 
if .SPASSWORD(n) (DSCSW FS Puy atiy,: 31 then 
return LJ6SSi GNAL (UAF 
incr COUNTER to .SPASSWORD “2 OSCSW CENGTHI~1 
if chStaile ° AStind ch(.SYMBOL_S = ° SYAOOL STR+1, 
.vectorl. SPASS ROEM) Lost A_ POINTER], 
se -COUNTER;, byte 
en 
return Sed ok cee i; 
CHECK_PASSWORD(S$N_LIST); 


end; 


Modify the passwords 
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macro MODIFY_PASSWORD[n) = 


if not .SPRESENT(n) then 
begin ! Blank out the current values 


RECBUF [Ename( *UAFSO_PUD' ,n) 1); 
Q-PQD',n,*_DATE')}); 


RECBUF [Zname("UAFSV_PWD',n,"_EXPIRED')] = FALSE; 
PWD_FLAG = FALSE 


PAHAAAPAAPAARMAMHARKHPHHKM 


end 
else if .SPASSWORD(n)COSCS$W_LENG 
begin ! Encrypt the new value 


RECBUF CZname(*UAFSB_ENCRYPT'.n)) = ENCRYPT; 


£ 
REC“ENCRYPT DSC 
PWD-FLAG = FALS 


LGISHPUD(R ENCRYPT DSC 


TH] neq 0 then 
s 


D',n); 
UAF$Q: PWD" .n) J; 


NCRYPT',n)J, .RECBUFCUAFS$W_SALT), 


ch$move( Iname('UAFS$S_PwD' 
RE CBUF CZnamet 'UAF$O 


ww, 


MOD IF Y_PASSWORD(S$N_LIST); 


That's all folks ... 


SOWNS ,NOEXE ,2 
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Ns COUNTER 
MBOL STR, RI 


R3, COUNTER, 7$ 

PRESENT , 118 

#0, (SPT; #0, #8, RECBUF +340 
#0, (SP), #0, #8, RECBUF +380 
#2, RECBUF +469 

PWd_FLAG 

PASSWORD 

sENCRYPT RE CBUF +360 

#8, REC_ENCRYPT_DSC 

RECBUF +340, RECTENCRYPT_DSC+4 
PWD FLAG 

USER DS 

RECBOF +358, -(SP) 

RE CBUF + 60. -(SP) 
REC_ENCRYPT DSi 

#8. TIME BUF, RECBUF +380 
PRESENT 2, 188 

#0, (SPT, #0, #8, RECBUF +348 
#0, (SP), #0, #8, RECBUF +388 
#4, RECBUF +469 

Pwb_FLAG 

PASSWORD_2 

sENCRYPT RE CBUF +361 

#6, rec é 


NCRYPT_DSC 
RE CBUF +348, RECTENCRYPT_DSC+4 


#8, TIME BUF, RECBUF +388 


R 
a ies 
#i, rR0 ~ 
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1 Zsbttl "AUTHORIZE GENERATE == Incerface to PL/I GENERATE_PASSWORDS routine’ 

routine AUTHORIZE_GENEPATE( NEW PASSWORD: ref block BSCSR > BLN. byted, 
; THIS, TLENGTH ) = 

begin 

lee 

! 

FUNCTIONAL DESCRIPTION: 

i Interface to PL/I procedure GENERATE_PASSWORD, which 

: generates random, pronounceable passwords. This routine 

} must prompt the user for input with NOECHO in effect 

INPUTS: 

None 

IMPLICIT INPUTS: 

Input from user terminal. 

. OUTPUTS: 

PASSWORD, by descriptor. 

i IMPLICIT OUTPUTS: 

User prompt. 

i ROUTINE VALUE: 

; None 

i NOTE: 

i 

! 

i 

ie 


PL/I apparently uses a form of ASCIC to represent its strings, 
however, PL/I] uses a word for the character count, not a byte. 


macro 


DSC$L_L1 = 34. 0, 32 
DSC$L“U1 = 28. 0; 32 


Literal 


ckCDSCSK_S BLN, b te] preset ((DSC$B_CLASSJ=DS($K_CLASS_S), 
initial(TO$_READPROMPT or IOSM_CVTLOW or I0SM_NOE<HOY, 
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UAF PARSE b-Jan-1985 10:30:1 noe Ee V4.0-74 Page 105 
v04-001 AUTHORIZE_GENERATE == Interface to PL/I GENERAT -0¢t-1984 13:01:71 UAF .BUGSRC JUAF PARSE .832;1 (28) 
3 2740 881 PROMPT: vector([45, byte] preset((0J=13, [1)=10, 

g fe) : § C2)="€', as Paeted oe lh spore! C6J=e'r*, C7J=* °); 
; 743 4 bind 

: 745 H 6 P2 = UPLIT(" password: '); 

Ho RG 

> 2748 8 i The password generator requires a complex descriptor 
749 890 ; ) 9 qu plex p 

: , 1 " 3 macro PLISVARYING_CHARACTER_ARRAYCNAME, LENGTH, WIDTH] = 
1 2 

: 2755 » 538 Iname (NAME) : peeetvector th NGTH, (WIDTH*2), byte], 
; 275 ® 2897 Iname(NAME,' DSC‘): block(32, te) 

; 275 m 2898 preset (LDSC$W_MAXSTRLEN) = wiota, 

: 2758 Mm 2899 DSC$B-DTYPE] = 87 

: 2759 m 2900 DSC$B-CLASS] = DSCSK_CLASS_VSA, 

; 2760 m 2901 pecan Polnten) = Iname (name), 

; 2761 4 O08 pecse_piact e Fy 

: 276 Mm 290 DSCSA_AC) = Zname(NAME) - (WIDTH+2), 

; 276 m 2904 DSC$L~S1] = (WIDTH+2,, 

> 2764 m 2905 DSC$L-L1) = 1 

> 2765 906 DSC$L-U1} = LENGTH); %; 

: 2767 908 PLISVARYING_CHARACTER_ARRAY('PWD', N_WORDS, MAX, "HYPH', N_WORDS, 2*MAX); 
We BRS, 

: 2770 911 i Build the prompt strin 

Bn eS Eon rae 

> 277 914 ch$move(.TLENGTH sis PROMPT(83); 

: 7 915 ch$move(i1, P2, PROMPT(B+. TLENGTH)): 

: 2776 917 PLENGTH = 8 + .TLENGTH + 11; 

: ote 319 5: 

: 2779 320 i Open a channel to the user 

mp Bg 

: 78 9 § SYSSASSIGN(Zascid'SYSSCOMMAND:', CHANNEL, 0, 0); 

; ? 4 é NEW_PASSWORD(DSC$W_LENGTH] = 0; 

: 2785 9 

: ns 9 5 ! Generate random passwords ... 

3 8 : 3 ‘ 

: 785 9 while .NEW_PASSWORD(DSC$W_LENGTH] eql 0 do 

: 2790 931 begin 

: $9) 338 

3 own 

3; 279 BUFFER: vector(128, bytel, 

7 2794 935 1088: vector(4, word], 

3; 2795 9 LISTED; 

; 2796 93 
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AUTHORIZE _GENERATE == Interface to PL/I GENERAT 


bern tobe 15289548 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


AX-11 Bliss-32 V4.0-74 
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938 LISTED = FALSE; 

acy SYS$Q]0W(0, .CHANNEL, IOS_WRITEVBLK, 0,0,0, 0, 0, 0, 32, 0,0); 
348 GENERATE PASSWORDS (PWD_DSC, HYPH_DSC 

343 uplitTMIN), uplit(MAX), uplitTN_WORDS)); 

ot SYSSQ1OW(O, .CHANNEL, IO$_WRITEVBLK, 0,0,0, 0. 0, 0, 32, 0,0); 
oe incr i to N_WORDS=-1 do 

948 4 gin ; 

949 4&4 DSCCDSCSW_LENGTH) = .PWwOC.i, g. g. 16, 93: 

950 4 DSCLDSCSA_POINTER) = PwOL.i, 2, 0, 0, 0): 

951 & STRSUPCASE(DSC, DSC); 

926 end; 

95 

954 while not .LISTED do 

282 : begin 

925 4 SYS$Q10W(0, CHANNEL» » FUNCTION 
958 4 BUFFER, 127, 0, 0, PROMPT, .PL 

2960 4 if .BUFFERC.10S8C1)) eal 26 then ! CTRL/Z 

2961 & return LIBSSIGNAL(UAFS_PWONCH, 2, .TLENGTH, .THIS) 
$306 4 else if .10SB8L1) eql 0 then 

9635 4 exitloop; 

2964 4 

965 4 incr i to N_WORDS-1 do 

966 4 LISTED = .LISTE gr 

967 & entons’ 10SB(1 BUFFER 

368 4 .Puot.i, 0, 6, 16, 04, PwOL.i, 2, 0, 0, 03); 
970 4 if .LISTED then 
2971 5 begin 
$358 : NEW_PASSWORDCDSC$W_LENGT 
297 LIBSGET_VM(Zref(.10SB013 FDSCSA_POINTER?); 
2974 2 ch$moveT.10SBL1], BUFFER, .NEW_PASSWORDCDSCSA_POINTER)); 
975 end 

376 4 else 

977 4 L1B$SIGNAL (UAF$_PWDNOL) ; 

978 4 

979 end; 

980 

981 end; 

9 

98 ! 

984 ' That's all folks ... 

eae ! 

$87 $ return SYSSDASSGN(.CHANNEL); 

989 end; 
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sword: \<0> 


4 P 
QO P.AFV: “ABEL \ \s¥3 $ MAND : \ 
gad EA: Hat aE 
, DDRESS P.AFV 
P.AFW: “LONG 
P.AFX 
P.AFY 


oe oh % 
C “LONG §65 
-PSECT SOWNS,NOEXE,2 
13¢ CH -BLKB 
146 DSC BYTE  0C3) 
14 BYTE 
144 "BLKB 4 
0148 FUNCTION: 
.LONG 375 
o14¢ PLENGTH:.BLKB 4 
150 PROMPT: .BYTE 13, 10, 69, 110, 116, 101, 114, 32 
0158 -BLKB 3? 
0017D -BLKB 
00180 P PWD: “BLKB 60 
01BC PWD_DSC:.WORD 10 
O1BE “BYTE 37, 12 
O1C ADDRESS PWD 
01C4 ‘BYTE 0C3) 
01C7 "BYTE 1 
01¢8 BYTE O0[4) 
O1cr ADDRESS PwD-12 
0100 LONG 12, 1, 5 
O1DC HYPH: <BLKB 116 
024A -BLKB 2 
4C HYPH_DSC: 
WORD 39 
4 [BYTE 2 
2 ADDRESS HYPH 
4 “BYTE C3) 
7 ‘BYTE 1 
a ‘BYTE 04) 
C “ADDRESS HYPH-22 
60 LONG 22 1, 
6C BUFFER: .BLKB 128 
—C 10SB: .BLKB 8 
F4 LISTED: .BLKB 4 
P2= P.AFT 


«PSECT SCODES,NOWRT,2 


00000 AUTHORIZE GENERATE : 
-@ORD Save R2, a3. R4,R5,R6,R7,RBLRO 

ROVAB LIBSSIGNAL, R9 

MOVAB SY SyS$0j ou, ‘ts 


1 MOVAB 
19 MOV CHANNEL R6 
¢ If SUBL SP 
2 mOVC TLENCTH, @THIS, PROMPT+8 


UAF .BUGSRE SUAFPARSE.B3 ; 


UAF PARSE 1 AX-11 Bliss-32 v4.0-7 Page 1 
04-001 AUTHORIZE_GENERATE == Interface to PL/I GENERAT be Jan-t Bee Siatsl8 | PONE bLebdescd# Nhee 288... age 398 
5 1¢ 8 MOV ; 2915 
oc BC4C 29 Op zs moves Ong poe ave NGTHCRO] ; a 
10 Ae Oc AC ADDL #9. TENGTH, PLENGTH + 2917 
7E 7 CLRO + 2923 
18 Ad BP Boose PUSHAB BoA 
060000006 00 04 FB F CALLS a TU VSSASSIGN : 
4 BC B4 a6 CLRW  aNéW_PASSWORD + 2924 
4 ¢ 3 49 1$: TSTwW  @NEW~ PASSWORD : 39 
4C BEQL 5 : 
0111 31 0004 BRW 1$ : 
0188 C6 4 3 2s CLRL ~— LISTED : 2938 
F C CLRO 5 ($F) : 3940 
; D 0005 PUSHL #3 : 
— 7C 959 CLRQ. =( SP) : 
7E 7¢ 9 38 CLRQ = =( SP) : 
7E 7C 00050 CLRQ = (SP) : 
3 DD 5F PUSHL #4 : 
DD PUSHL CHANNEL F 
D4 CLRL.  =('S : 
68 FB CALLS #12, SYS$QIOW : 
OF PUSHAB  P.AFY + 2943 
OF PUSHAB P.AFX : 
OF PUSHAB P.AFW é j 
F 5 HYPH_DSC > 2942 
oF PUSHAB PWD_DBS : 
000000006 00 B CALLS #5, GENERATE_PASSWORDS ; 
C CLRO 0. = ( §p) : 2945 
PUSHL #32 3 
CLRO. = ( SP) ; 
CLRQ = =(SP) : 
CLRQ = = (SP) : 
PUSHL a $ 
PUSHL CHANNEL 3 
CLRL 5s?) : 
68 CALLS #12, SYS$QIOW : 
CLRL + 2967 
50 52 MULL3. #12 i RO > 2949 
PUSHAB tro : 
04 Ab MOVW  a(SP)+¢ psc ; 
08 Ab MOVAB PWD+2CR0), DSC+4 > 2950 
PUSHAB psc : 2951 
000000006 CALLS BO. st ST << ; 
D AOBLEQ #4. | > 2947 
ac BLBS. LL? STEb, 1 > 2954 
PUSHL PLENGTH : 998 
5 PROMPT : 29 
CLRO 538) : 
7E MOVZBL #127, =(SP) : 
SHAB BUFFER : 
CLRQ 9 =( SP) : 
PUSHAB 10SB : 
PUSHL FUNCTION : 
PUSHL CHANNEL ; 
CLRL 5(sP) : 
68 CALLS #12, SYS$Q10W : 


11 
iss-32 V4.0-74 
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50 1 C6 3C 0000 MOVZWL 10SB+2, R : 2960 
iA 8198 cots i # CMPB gyrFentaos, #26 ; 
“= E NEQ : 
08 AC DD OOOEA PUSHL THIS t 2961 
C AC DD O00E PUSHL TLENGTH : 
DD OOOF PUSHL @ ; 
000000006 BF DD OO0F PUSHL  #UAF$_PWDNCH : 
69 4 FB F CALLS #4, LIBSSIGNAL 3 
04 OOOFB RET : 
30 DS OOOFC S$ TSTL = RO + 2962 
} F BNE 6$ : 
FF 46 1 BRW $ ; 
54 D4 001 6s CLRL_ so : 2965 
50 54 o¢ C5 00105 7$ MULL3 #12, I, RO : 2968 
4 109 LRL OR ; 
44 A640 BF 1 PUSHAB PupcRg] F 
9€ 00 0130 6 01g ashe 20 JOE C5 10SB+2, BUFFER, #0, a(SP)+, PwD+2CRO] : 
09 12 00118 BNEQ 8 : 
D 0110 INCL R : 
0188 £6 55 cB OO1IF 8S BISL2 R5, LISTED : 
04 F3 00124 AOBLEQ #4. I, 7$ > 2966 
9 0188 6 § 0128 BLBC LISTED, 9$ : 2970 
0 01B £6 C 001 p MOVZWL 1osee2 RO + 2972 
04 BC BO 001 Vw RO, @NEW PASSWORD : 
06 #A bd 4 MOVL NEW _PASSQORD, R2 3 2973 
04 Ad 9F OO13A PUSHAB 4(R : 
04 AE 50 DO 901 MOVL RO, 4(SP) F 
04 AE 9F 00141 PUSHAB : 
000000006 00 0 FB 0144 CALLS #2 LIBSGET vm ; 
04 B2 0130 6 0182 «(6 é 0148 MOVC 108B¢ , BUFFER, a4(R2) : 2974 
09 1 00154 BRB 0$ : 297 
000000006 8F DD 4 6 9S: PUSHL  #UAF$_PWDNOL : 297 
69 9} FB 0015C CALLS #1, LYIBSSIGNAL $ 
FF56 31 OO15F 10$: BRW 4$ > 2954 
66 DD 00162 11$:  PUSHL CHANNEL : 2987 
000000006 00 01 FB 00164 CALLS #1, SYSSDASSGN : 
04 00168 RET : 2989 


; Routine Size: 364 bytes, Routine Base: SCODE$ + 154E 


: 2849 990 1 
; 2850 991 1 end 
: 2851 992 0 eludom 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: $PLITS 1393 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, bined od Ug b th 1 
; SOWNS 60 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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